File No. GENL-25 
Form C24-3322-2 




1x5 JVl 



Systems Reference Library 



Fortran IV Language Specifications/ 

Program Specifications/ and Operating Procedures 

IBM 1401, 1440, and 14B0 

Programs: 1401-F0-051 (Disk Resident System) 
1401-F0-052 (Tape Resident System) 

This reference publication contains the language specifications, 
program specifications, and operating procedures for the Fortran 
IV Programming System. 

The language specifications describe the Fortran IV language 
that is processed by the Fortran system. The language closely 
resembles the language of mathematics, and includes variou: 
types of arithmetic, control, input/output, and specification 
statements. 

The program specifications describe the two programs, System 
Control and Fortran Processor, that make up the Fortran 
system. Logical files defined and used by the system, control 
cards, and results of processing operations are also included. 

The operating procedures are divided into two parts. The 
first part describes compiling and executing object programs, 
changing logical-file assignments, and maintaining a Fortran 
library of subprograms. The second part describes building and 
updating a Fortran system. 

A summary of processor jobs, control-card formats, phase 
descriptions, and a listing of a sample program make up the 
appendix of this publication. Also included jn the appendix is a 
description of the procedures to be followed in building a system 
that contains both Fortran and Autocoder. 

For a list of other publications and abstracts, see the ibm 1401 
and 1460 Bibliography, Form A24-1495, and the ibm 1440 
Bibliography, Form A24-3005. 











Major Revision (April 1966) 

This publication, C24-3322-2, is a major revision of, and 
obsoletes the previous publication, C24-3322-1, and its asso- 
ciated Technical Newsletter N2 1-0050. Changes have been 
made throughout this publication. 



Copies of this and other IBM publications can be obtained through IBM Branch Offices. 
Address comments concerning the content of this publication to: 
IBM, Programming Publications Department, Rochester, Minn. 55901. 



© 1964 by International Business Machines Corporation 



Contents 



Fortran IV 5 

Related Information 5 

Definition of Key Terms 5 

Machine Requirements 5 

Language Specifications 7 

Constants, Variables, Subscripts, and Expressions ... 7 



Constants 7 

Integer Constants 7 

Real Constants 7 

Logical Constants 8 

Variables 8 

Variable Names 8 

Variable Types 8 

Subscripts 9 

Form of Subscripts 9 

Subscripted Variables 9 

Arrangement of Arrays in Core Storage 9 

Expressions 9 

Arithmetic Expressions 9 

Logical Expressions H 

The Arithmetic Statement 12 

The Control Statements 12 

The Unconditional go to Statement 12 

The Computed go to Statement 12 

The Logical if Statement 13 

The Arithmetic if Statement 13 

The do Statement 13 

The continue Statement 14 

The pause Statement 14 

The stop Statement 14 

The end Statement 14 

The Specification Statements 15 

The dimension Statement 15 

The common Statement 15 

The equivalence Statement 16 

The Type Statements 17 

The data Statement 17 

Input/Output Statements 18 

List Specifications - 18 

Reading or Writing Entire Arrays 19 

The format Statement 19 



Format Specifications 20 

Numeric Fields 20 

Logical Fields 20 

Alphameric Fields 20 

Blank Fields — X-Conversion 21 

Repetition of Field Format 21 

Repetition of Groups 21 

Scale Factors — P-Conversion 21 

Multiple-Record format Statements 22 

Carriage Control 22 

format Statements Read In at Object Time 23 

Edited Input Data 23 

Unedited Data 23 

General Input/Output Statements 23 

The read Statement 24 

The write Statement 24 

Manipulative Input/Output Statements 25 

The find Statement 25 

The end file Statement 25 

The rewind Statement 26 

The backspace Statement 26 

Input/Output Specification Statement 26 

The define file Statement 26 

Logical Files Used for Input/Output 27 

Subprograms — Function and Subroutine 

Statements 27 

Naming Subprograms 27 

Predefined Subprograms 28 

Library Functions 28 

Library Subroutines 28 

Defining Subprograms 28 

The function Statement 28 

The subroutine Statement 30 

The return Statement 31 

Subprogram Names as Arguments 31 

Using Subprograms 31 

Using Functions ... 31 

Using Subroutines — The call Statement 31 

Segmenting Programs 32 

Fortran Source Program 32 

Source Program Statements and Sequencing 32 

Writing the Source Program 33 



Checking the Source Program 34 Performing Jobs 65 

Punching the Source Program 34 Preparing a Stack 65 

Table of Source Program Characters 35 Running a Stack 65 



Program Specifications 36 

The Fortran System 36 

System Control Program 36 

Logical Files 37 

Compilation Time 37 

Execution Time 38 

Control Cards 38 

run Cards 39 

init Card 39 

asgn Cards 39 

updat Card 39 

note Card 39 

pause Card 39 

copy Card 40 

halt Card 40 

Fortran Processor Program 40 

Fortran Compiler 40 

Compiler Variables 40 

Fortran Compiler Output 41 

Relocatable Punched Card Deck 41 

Fortran Compiler Diagnostics 41 

Fortran Loader 42 

Fortran Loader Output 43 

Fortran Loader Diagnostics 43 

Object Time Diagnostics 44 

Fortran Library 45 

Object Programs 45 



Halts and Messages 67 



Operating Procedures 

Jobs 



50 
50 



Preparing Processor Jobs 50 

FORTRAN RUN 51 

LOADER RUN 52 

PRODUCTION RUN 55 

Preparing User-Update Jobs 56 

Preparing Library Jobs 57 

Library Build 58 

Library Listing 58 

Library Change 59 

Library Copy 60 

Changing File Assignments 60 

Preparing asgn Cards 60 

Using asgn Cards 61 



Building and Updating a Fortran System 



73 



Tape Resident System, Deck 

Description and Preparation 73 

Building a Fortran Tape Resident System 73 

Disk Resident System, Deck 

Description and Preparation 74 

Marking Program 76 

Write File-Protected Addresses 76 

System Control Card Build 76 

Card Boot 77 

Fortran Update 77 

Fortran Sample Program 77 

Building a Fortran Disk Resident System 77 

Write File-Protected Addresses 78 

System Control Card Build 80 

Fortran Update 80 

Fortran Sample Program 81 

Updating a Fortran System 82 

Duplicating the System Tape 82 



Appendix I 



Appendix II 

System Control Program — Disk Resident 
System Control Program — Tape Resident 
Fortran Processor Program 



83 



89 

89 
89 
90 



Appendix III 93 

Building a System that Contains Fortran and 

Autocoder 93 

File Considerations 93 

Building a Combined System 94 

Testing the Autocoder System 94 



Appendix IV — Sample Program 



Index 



95 



98 



Fortran IV 



This publication contains the language specifications, 
program specifications, and operating procedures for 
the Fortran IV programming system for ibm 1401, 
1440, and 1460. In this publication, the term Fortran 
system refers to 1401/1440/1460 Fortran TV, program 
numbers 1401-FO-051 (Disk Resident System) or 1401- 
FO-052 (Tape Resident System). 

This publication is divided into three major sections, 
language specifications, program specifications, and 
operating procedures. 

The language specifications section describes the 
coding of a Fortran program. The content of this sec- 
tion is presented with the assumption that the pro- 
grammer is familiar with the information in the Fortran 
General Information Manual, Form F28-8074. 

The program specifications section describes the 
Fortran system. Included in the section are such topics 
as a description of the System Control Program (the 
controlling element of the Fortran system), a descrip- 
tion of the Fortran Processor Program, and a detailed 
description of the results of system operations. Al- 
though this section is directed primarily to the pro- 
grammer, the machine operator should review the 
section for an understanding of the system. 

The third section, operating procedures, contains 
such topics as preparing processor jobs, changing file 
assignments for processor jobs, and running processor 
jobs. The last part of the section outlines the proce- 
dures to follow in building a Fortran system. For the 
convenience of both programmer and machine op- 
erator, all control cards are summarized in Appendix I. 

While the third section is directed primarily to the 
machine operator, it is recommended that the pro- 
grammer review the content of the complete section. 
The programmer should particularly note the parts of 
the section dealing with preparing processor jobs and 
changing file assignments. 

Related Information 

The following Systems Reference Library publica- 
tions contain additional information relating to the use 
of the Fortran system. It is recommended that these 
publications be available to the user for reference 
purposes. 

Fortran General Information Manual, Form F28- 
8074. 



Disk Utility Programs Specifications for IBM 1401, 
1440, and 1460 (with 1301 and 1311), Form C24-1484. 

Disk Utility Programs Operating Procedures foi 
IBM 1401 and 1460 (with 1301 and 1311), Form C24- 
3105, or Disk Utility Programs Operating Procedures 
for IBM 1440 (with 1301 and 1311), Form C24-3121. 



Definitions of Key Terms 

In order to clarify the meaning of special terms when 
used in this publication, the following definitions are 
given. Standard terms are defined in Glossary of In- 
formation Processing, Form C20-8089. 

Card Boot. A card deck, supplied as part of the Fortran 
system program deck, that is used to start system 
operations. 

Compiler. The program that translates Fortran sym- 
bolic statements directly into relocatable machine 
language. This process is called a compilation. 

Job. An operation or sequence of operations that are 
to be performed by the Fortran system. 

Logical Files. Input/output devices and/or areas that 
are used by the Fortran system. 

Object-time. A term describing those elements or proc- 
esses related to the execution of a machine-language 
object program. 

Operation. A basic unit of work to be performed by 
one of the components of the system. 

Stack. A set of one or more jobs that is to be proc- 
essed during the same machine run. 

System. The set of programs made up of the elements 
required for compiling and/or executing user-pro- 
grams. 

[ ] Brackets contain an option that may be chosen. 
Braces contain options, one of which must be 
chosen. 



Machine Requirements 

To process a Fortran source program, the following 
minimum machine configurations are specified. 
An ibm 1401 system with: 

12,000 positions of core storage 

Advanced-Programming feature 



High-Low-Equal-Compare feature 

One ibm 1311 Disk Storage Drive, or four ibm 729 
Magnetic Tape Units, or four ibm 7330 Magnetic 
Tape Units, or a combination of four ibm 729 
Magnetic Tape Units and ibm 7330 Magnetic 
Tape Units 

One ibm 1402 Card Read-Punch 

One ibm 1403 Printer, Model 2 

An ibm 1440 system with: 

12,000 positions of core storage 

Indexing-and-Store- Address-Register feature 

One ibm 1301 Disk Storage, or one ibm 1311 Disk 

Storage Drive 
One ibm 1442 Card Reader 
One ibm 1443 Printer 

An ibm 1460 system with: 

12,000 positions of core storage 

Indexing-and-Store- Address-Register feature 

One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive, or four ibm 729 Magnetic Tape 
Units, or four ibm 7330 Magnetic Tape Units, or a 
combination of four ibm 729 Magnetic Tape Units 
and ibm 7330 Magnetic Tape Units 

One ibm 1402 Card Read-Punch 

One ibm 1403 Printer, Model 2 

To load and execute object programs generated by 
the Fortran system, the following minimum machine 
requirements are specified. 

An ibm 1401 system with: 

12,000 positions of core storage (or more if required 
by the object program) 

Advanced-Programming feature 

High-Low-Equal-Compare feature 

One ibm 1311 Disk Storage Drive, or one ibm 729 
Magnetic Tape Unit, or one ibm 7330 Magnetic 
Tape Unit (for residence of the Fortran system, 
including the library of the relocatable subpro- 
grams) 

One ibm 1402 Card Read-Punch 

One ibm 1403 Printer, Model 2 

Sense switches, if required by the object program 

A program loading device, which could be an ibm 
1402 Card Read-Punch (the same as previously 
required), an ibm 1311 Disk Storage Drive (may 
be the same as that required for system residence), 
an ibm 729 Magnetic Tape Unit (must not be the 
same unit as that required for system residence), 
or an ibm 7330 Magnetic Tape Unit (must not be 



the same unit as that required for system resi- 
dence) 

Additional input/output devices as required by the 
object program 

An ibm 1440 system with: 

12,000 positions of core storage (or more if required 
by the object program) 

Indexing-and-Store-Address-Register feature 
One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive (for residence of the Fortran sys- 
tem, including the library of the relocatable sub- 
programs) 

One ibm 1442 Card Reader 

One ibm 1443 Printer 

Sense switches, if required by the object program 

A program loading device, which could be an ibm 
1442 Card Reader (the same as previously re- 
quired), an ibm 1301 Disk Storage or an ibm 1311 
Disk Storage Drive (may be the same as that re- 
quired for system residence) 

Additional input/output devices as required by the 
object program 

An ibm 1460 system with: 

12,000 positions of core storage (or more if required 
by the object program) 

Indexing-and-Store- Address-Register feature 

One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive, or one ibm 729 Magnetic Tape 
Unit, or one ibm 7330 Magnetic Tape Unit (for 
residence of the Fortran system, including the li- 
brary of the relocatable subprograms) 

One ibm 1402 Card Read-Punch 

One ibm 1403 Printer, Model 2 

Sense switches, if required by the object program 

A program loading device, which could be an ibm 
1402 Card Read-Punch (the same as previously re- 
quired), or an ibm 1301 Disk Storage or an ibm 
1311 Disk Storage Drive (may be the same as that 
required for system residence), or an ibm 729 Mag- 
netic Tape Unit (must not be the same unit as that 
required for system residence), or an ibm 7330 
Magnetic Tape Unit (must not be the same unit 
as that required for system residence) 

Additional input/output devices as required by the 
object program 

The Fortran system can use the following devices, 
if available. 

ibm 1444 Card Punch 

ibm 1447 Console without a buffer feature 
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Language Specifications 



The 1401, 1440, and 1460 Fortran Programming System 
consists of a language and its associated processor pro- 
gram. The Fortran language enables the programmer 
to code programs that deal with problems that are pri- 
marily mathematical in nature. Problems containing 
formulas and variables can be dealt with easily by us- 
ing the Fortran language. A facility is included with 
the disk resident Fortran system to process informa- 
tion from randomly accessible records. 

In addition to the main program, the user can code 
and use subprograms. These subprograms can be called 
for and used by the main program and/or other sub- 
programs. 

The Fortran language comprises five general cate- 
gories of statements. 

Arithmetic Statements. The arithmetic statements de- 
fine the value of a variable to be the result of a nu- 
merical or logical calculation. 

Control Statements. The control statements govern the 
flow of control in the program. 

Input/Output Statements. Input/output statements 
specify the transfer of information between the pro- 
gram environment, the main-computer storage, and 
the extra-program environment, input/output de- 
vices, such as a card reader, a card punch, a printer, 
a console printer, a magnetic tape unit, or a disk unit. 

Subprogram Statements. Subprogram statements per- 
mit the programmer to define subprograms for sub- 
sequent use. 

Specification Statements. Specification statements de- 
clare properties of names used in the program and 
permit the user to exert some control over the alloca- 
tion of core storage for program variables. 

Any of these statements can be assigned a statement 
number. To permit reference within one statement to 
another statement, the latter statement must be as- 
signed a statement number. Superfluous statement 
numbers will adversely affect compiling time. 

The Fortran processor translates (compiles) the pro- 
grams written in the Fortran language into machine- 
language object programs in the relocatable format. 
Object programs are then executed under control of 
the Fortran system. 



Constants, Variables, 
Subscripts, and Expressions 

This section describes constants, variables, and sub- 
scripts used to express 1-, 2-, and 3-dimensional arrays 
of variables. Also included in this section is a discus- 
sion of expressions, the combinations of constants, vari- 
ables, and function references. 



Constants 

Three types of constants are permitted in a Fortran 
source program: integer (fixed point), real (floating 
point), and logical. 



Integer Constants 

General Form. An integer constant consists of n deci- 



mal digits, where 1 
mal point. 

Examples. 



n — k, written without a deci- 



1 

2 
524267 



Value of k 

The value of k (precision) can be indicated to the 
Fortran compiler through control information supplied 
by the user. If k is specified by the user, the value of k 
must be 1 ^ k ^ 20. If k is not specified by the user, 
the compiler uses k equal to five digits. No more than 
k digits can be written. 

The absolute value of an integer constant must be 
between and (10 k — 1). 



Real Constants 

General Form. A real constant consists of n decimal 
digits, where l^n^f, written with a decimal 
point. A real constant can be followed by a deci- 
mal exponent written as the letter E followed by a 
(signed or unsigned) 1- or 2-digit integer constant. 



Examples. 





17. 






5.0 






.0003 






5.0E3 


i.e., 5.0 X 10 3 




5.0E+3 


i.e., 5.0 X 10+ 3 




5.0E-3 


i.e., 5.0 X 10- 3 


Value of f 







The value of / (precision) can be indicated to the 
Fortran compiler through control information supplied 
by the user. If f is specified by the user, the value of / 
must be 2 ^ f ^ 20. If / is not specified by the user, 
the compiler uses / equal to eight digits. No more than 
/ digits can be written. 

The absolute value of a real constant must be be- 
tween the limits 10- 100 and (1 — 10~ f ) X 10", or be 
zero. 

Within core storage, a real constant is stored in an 
exponential form occupying n -f 2 digits (n -f- 2 core 
storage positions), where n^f. The first n digits con- 
tain the mantissa (the fraction part of the constant). A 
decimal point is understood to precede the high-order 
digit position. The last two positions contain the char- 
acteristic (exponent). For example, if / is defined as 18, 
a number in the source program having 18 or less sig- 
nificant digits results in a 20-digit real number, 18 for 
the mantissa and 2 for the characteristic. 



arguments in a call statement. A variable can be 
defined by a read statement, an arithmetic statement, 
or a data statement. 



Variable Names 

General Form. A variable name consists of one to six 
alphameric characters, the first of which must be 
alphabetic. Subroutines and functions are named in 
the same way as variables (see Naming Subpro- 
grams). Within the same program, a unique name 
must be used to represent a variable, a subroutine, 
and/or a function. 



Examples. 



L5 

JOB1 

BETATS 

COST 

K 



Variable Types 

The type of variable, real or integer, can be specified 
explicitly by a type statement or implicitly by name. 
Logical variables must have their type specified by a 
type statement. 



Logical Constants 

General Form. A logical constant can take either of the 
following forms. 

. TRUE . 
. FALSE . 

Within core storage, a logical constant of . false . 
is represented by the character zero (0). A logical con- 
stant of . true . is represented by the character one (1). 



Variables 

A variable quantity is represented by a symbolic name, 
and is specified by its name and its type. The type of 
variable (integer, real, or logical) corresponds to the 
type (integer, real, or logical) of values that the vari- 
able assumes. 

The initial value of a variable must be predefined 
before its use in a Fortran statement, including all 



Explicit Type Specification 

Explicit type specification of a real or integer variable 
is made by the type statements, integer, real, logical, 
and external. See Type Statements. 



Implicit Type Specification 

Implicit type specification of a real or integer variable 
is made in the following manner. 

1. If the first character of the variable name is I, J, K, 
L, M, or N, it is an integer variable. For example, 
max, job, idist, and lesl are integer variables. 

2. If the first character of the variable name is not I, J, 
K, L, M, or N, it is a real variable. For example, 
alpha, bmax, q, and whit are real variables. 

Explicit type specification overrides implicit type spec- 
ification. For example, if a variable name is job and a 
type statement specifies that this variable be real, the 
variable is treated as a real variable even though it im- 
plicitly has the form of an integer variable. 
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Subscripts 

A variable can be made to represent any element of a 
1-, 2-, or 3-dimensional array of quantities by append- 
ing one, two, or three subscripts, respectively, to the 
variable name. The variable is then called a sub- 
scripted variable. The subscripts are expressions of a 
special form whose value determines the element of 
the array to which reference is made. 



Form of Subscripts 

General Form. A subscript can take only one of the 
following forms: 

V 
C 

v + c 
v-c 
c*v 

C * V + c 
c * V - c 

where V represents any unsigned nonsubscripted in- 
teger variable, C and C represent any unsigned 
integer constant, and + denotes addition, — denotes 
subtraction, and * denotes multiplication. 

A variable in a subscript cannot be subscripted. 



Examples. 



J 

3 

1 + 3 

K-l 

4*L 

2*M + 5 

3*M-4 



2. The order and number of the subscript expressions 
must correspond to the order and number of the de- 
clared dimensions. 

3. During execution, variable subscripts are evaluated 
so that the subscripted variable refers to a specific 
member of the array. 

Note: A variable subscript reference of the form 
A(Ci*Vi ± G',C 2 *V 2 ± C 2 ',C 3 *V 3 ± C.'), where A is defined 
in a dimension or common statement as A(di,d 2 ,d 3 ), must 
conform to the following inequality: 

(f + 2) (CiVi + diCV, + dxd 2 C 3 V 3 ) < 16,000 

where f is the real size and Ct, Vi, and di are zero if they 
are not applicable. The VYs are the largest value expected 
in the subscripted variable reference. 



Arrangement of Arrays in Core Storage 

Arrays are placed in core storage in column order, in 
order of decreasing core-storage addresses. 

One-dimensional arrays are stored sequentially. 

Two-dimensional arrays are stored sequentially by 
column. 

Three-dimensional arrays are stored sequentially by 
column from plane to plane. (The first subscript is 
cycled most rapidly, and the last least rapidly.) 

For example, the array whose last element is A(3,5) 
appears in core storage as: 

A(3,5),A(2,5),A(1,5),A(3,4), . . . , A(3,1),A(2,1),A(1,1) 

Note that A(l,l) is in the high core-storage position, 
and A(3,5) is in the low core-storage position. 



Subscripted Variables 

General Form. A subscripted variable consists of a 
variable name followed by parentheses enclosing 
one, two, or three subscripts separated by commas. 



Examples. 



A (I) 

K(3) 

BETA (8 * J + 2, K 

MAX (I, J, K) 



•2,L) 



Subscripted variables must conform to the following. 

1. Each variable that appears in subscripted form must 
have the size of the array specified preceding the 
first appearance of the subscripted variable in an 
executable statement or data statement. Array sizes 
are specified by using a dimension statement or a 
common statement. 



Expressions 

The Fortran language includes two kinds of expres- 
sions, arithmetic expressions and logical expressions. 



Arithmetic Expressions 

An arithmetic expression consists of sequences of con- 
stants, subscripted or nonsubscripted variables, and 
arithmetic function references, separated by arithmetic 
symbols, commas, and parentheses. The arithmetic op- 
eration symbols and their meaning follow. 



ymbol 


Meaning 


+ 


Addition 


— 


Subtraction 


* 


Multiplication 


/ 


Division 


** 


Exponentiation 



+, -, *, / 


Real 


Integer 


Logical 


Real 


Valid 


Invalid 


Invalid 


Integer 


Invalid 


Valid 


Invalid 


Logical 


Invalid 


Invalid 


Invalid 







Exponent 




Real 


Integer 


Logical 


Base 


Real 


Valid 


Valid 


Invalid 


Integer 


Invalid 


Valid 


Invalid 


Logical 


Invalid 


Invalid 


Invalid 



Figure 1. Arithmetic Operators 



Figure 2. Exponentiation 



The following rules must be followed in constructing 
arithmetic expressions. 

1. Figures 1 and 2 indicate which constants, variables, 
and functions can be combined by the arithmetic 
operators to form arithmetic expressions. Figure 1 
gives the valid combinations with respect to the 
arithmetic operators -j-, — , *, and /. Figure 2 gives 
the valid combinations with respect to the arith- 
metic operator **. 

2. Parentheses can be used, as in algebra, to group ex- 
pressions, indicate the order of operations, and 
make interpretation easier for the user. 

3. Expressions can be connected by arithmetic opera- 
tion symbols to form other expressions, provided 
that: 

a. No two operators appear in sequence, and 

b. No operation symbol is assumed to be present. 
Parentheses are not assumed to be present. Mul- 
tiplication cannot be implied. For example, the 
expression A**B**C is not permitted. It must be 
written as either A**(B**C) or (A**B)**C, 
whichever is intended. 

Examples. In the following examples, implicit type 
specification is assumed. 

A + B (Valid) 

A + 2 (Invalid — an integer constant cannot be added to 

a real variable) 
A + 2. (Valid) 

A + 2.0 (Valid) 
I * J (Valid) 

I * A (Invalid — a real variable cannot be multiplied by 

an integer variable) 
A * B (Valid) 

A * I (Invalid — an integer variable cannot be multiplied 

by a real variable) 
A** 2.0 (Valid) 
A ** 2 (Valid) 

I ** 2.0 (Invalid — an integer variable cannot be raised to 

a real constant power) 
1**2 (Valid) 

Preceding an expression by a + or — sign does not 
affect the type of the expression. 



Exponentiation is defined as follows: 

1. Given: A**I, where A is an integer variable or a 
real variable and I is an integer variable. 

If I > 0, then A**I = A*A* . . . *A, (I factors). Re- 
sult is the same type variable as A. 

If I = and if A ^ 0, then A**I = 1. Result is the 
same type variable as A. 

If I = and if A = 0, then A** I = undefined. 

If I< and if A ^ 0, A**I = 



A* A*. . . *A, (|I| factors) 

Result is a real variable. 
If I< and if A = 0, then A**I = undefined. 

2. Given: A**R, where A is a real variable and R is a 
real variable. 

If A > 0, then A**R = EXP(R*ALOG(A)). Result 

is a real variable. 

If A = and if R > 0, then A**R = 0. Result is a 

real variable. 

If A = and if R ^ 0, then A**R = undefined. 

If A < 0, then A**R = undefined. 

Order of Operations 

Parentheses can be used, as in algebra, in expressions 
to specify the order in which the expression is to be 
evaluated. Expressions are evaluated from left to right. 
Where parentheses are omitted, the order of computa- 
tion is as follows. 

1. Function computation and substitution. 

2. Exponentiation 

3. Multiplication and division. 

4. Addition and subtraction. 

For example, the expression A + B/C — D**E*F — G 
will be interpreted A + (B/C) — (D E * F) — G and 
will be evaluated in order from left to right. 

The expression — I**N, — A**B, and — A**N will 
be interpreted as (— I)**N, (— A)**B, and (— A)**N 
if preceded by a left parenthesis or an equal (replace- 
ment) sign. 



10 Fortran IV Specs & Op. Proc. — 1401, 1440, 1460 



Logical Expressions 

A logical expression consists of certain sequences of 
logical constants, logical variables, references to logical 
functions, and arithmetic expressions separated by 
logical operators or relational operators. A logical ex- 
pression always has the value .true, or .false. . 

The logical operators (where a and b are logical 
expressions) are: 

Operator Definition 

.NOT.a This has the value .true, only if a is .false. ; 

it has the value .false, only if a is .true. . 
a.AND.b This has the value .true, only if a and b are 

both .true. ; it has the value .false, if either 

a or b is .false. . 
a.OR.b (Inclusive or) This has the value .true, if either 

a or b is .true. ; it has the value .false, only 

if both a and b are .false. . 

The logical operators .not. , .and. , and .or. must al- 
ways include the preceding and following periods. 

Examples. 

Z .OR. X 

X . AND. .NOT. Y 

The relational operators are: 

Operator Definition 

.gt. Greater than (>) 

.ge. Greater than or equal to (>) 

xt. Less than (<) 

xe. Less than or equal to (<) 

.eq. Equal to (=) 

.ne. Not equal to (^) 

The relational operators must always include the 
preceding and following periods. 



Examples. 



.NOT. C .EQ. Z 

A .GT. B .OR. C .LE. B 



The following are the rules for constructing logical 
expressions : 

1. Figure 3 indicates which constants, variables, and 
functions can be combined by the relational opera- 



tors to form a valid logical expression. The logical 
expression will have the value .true, if the condition 
expressed by the relational operator is met. Other- 
wise, the logical expression will have the value 
.false. . 

2. A logical expression may also consist of a single 
logical constant, a logical variable, or a reference to 
a logical function. 

3. The logical operator .not. must be followed by a 
logical expression, and the logical operators .and. 
and .or. must be preceded and followed by logical 
expressions to form more complex logical expres- 
sions. 

4. Parentheses may not be used in logical expressions. 



Order of Operations 

In logical expressions, the order of operations is under- 
stood to be as follows : 

1. Function computation and substitution. 

2. Exponentiation. 

3. Multiplication and division. 

4. Addition and subtraction. 

5. .LT. , .LE. , .EQ. , .NE. , .GT. , .GE. 

6. .NOT. 

7. .AND. 

8. .OR. 



.GT., .GE., .LT., 
.LE., .EQ., .NE. 


Real 


Integer 


Logical 


Real 


Valid 


Invalid 


Invalid 


Integer 


Invalid 


Valid 


Invalid 


Logical 


Invalid 


Invalid 


Invalid 



Figure 3. Relational Operators 
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The Arithmetic Statement 

The arithmetic statement defines a numerical or logical 
calculation. A Fortran arithmetic statement closely re- 
sembles a conventional arithmetic or algebraic for- 
mula, except that the equal sign specifies replacement 
rather than equality. 

General Form. a = b 

a is a real, integer, or logical variable that may be 
subscripted. 

b is an expression. 

Examples. 

A = B + (C - 3. 0) *D 
A (I) = B (I) + SIN (C (I) ) 
V = .TRUE. 
E = C.GT.DAND.F.LE.G 

Figure 4 indicates the types of expressions and vari- 
ables that can be equated to result in valid arithmetic 
statements. 

In the following examples of arithmetic statements, 
I is an integer variable, A and B are real variables, and 
C, D, and E are logical variables. 



D.OR. .NOT.E 



Statement 

A = B 
I = B 



i = i + 1 

A = 3*B 



C = .TRUE. 
D = .NOT. C 



D = I.GE.A 



Definition 

Replace A by the current value of B. 
Truncate B to an integer, convert it to 
an integer constant, and store it in I. 
Convert I to a real variable and store 
it in A. 

Add 1 to I, and store it in I. 

Not permitted. The expression is mixed 

for multiplication; that is, it contains 

both a real variable and an integer 

constant. 

Store the logical constant .true, in C. 
If C is .true. , store the value .false. 
in D. If C is .false. , store the value 
.true, in D. 

Not permitted. An integer and a real 
variable may not be joined by a rela- 
tional operator. 



Left 

Side 

of 

Equal 

Sign 


Right Side of Equal Sign 


\ Expression 
Variable \ 


Real 


Integer 


Logical 


Real 


Valid 


Valid 


Invalid 


Integer 


Valid 


Valid 


Invalid 


Logical 


Invalid 


Invalid 


Valid 



D 


E 


~E 


Dv~E 


T 


T 


F 


T 


T 


F 


T 


T 


F 


T 


F 


F 


F 


F 


T 


T 



where: ~ implies .not. , and V implies .or. . 

c = 3. .gt.b C is .true, if 3. is greater than B; C is 

.false, otherwise. 

The last two examples illustrate the following rules: 

1. Two logical operators can appear in sequence only 
if the second logical operator is .not. . 

2. Two periods may appear in succession as in c = 
d.or..not.e or when one belongs to a constant and 
the other to a relational operator. 



The Control Statements 

The nine control statements enable the programmer to 
control and terminate the flow of his program. Transfer 
of control must be to an executable statement. 



The Unconditional GO TO Statement 

General Form, go to n 

n is a statement number of an executable statement. 
This statement causes control to be transferred to 
the statement numbered n. 



Example. 



GO TO 25 



This statement causes control to be transferred to 
statement numbered 25. 

The Computed GO TO Statement 

General Form, go to (n u n 2 ,. . . ,n m ),i 

n h r\i, . . . , n m are statement numbers of executable state- 
ments. 

The limits of the value m are 1 < m < 9. 

i is a nonsubscripted integer variable. 

The limits of the value i are 1 < i < 9. 

This statement causes control to be transferred to 
the statement numbered n t ,n 2 ,. . . , n m depending on 
whether the value of i is 1,2,. . . , m, respectively, at the 
time of execution. 



Figure 4. Valid Combinations of Variables and 
Expressions 



Example. 



GO TO (30, 45, 50, 9), K 
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In the example, if K is equal to 3 at the time of exe- 
cution, the program will transfer control to the third 
statement in the list, statement 50. 



The Logical IF Statement 

General Form, if (t) s 
f is a logical expression. 

s is any executable statement except do, an arithmetic if, 
or another logical if. 

If the logical expression t is true, statement s is exe- 
cuted. Control then transfers to the next sequential 
executable statement, unless 5 is a go to statement, in 
which case control is transferred as indicated. 

If t is false, control transfers to the next sequential 
statement. 

If t is true and s is a call statement, control transfers 
to the next sequential executable statement on return 
from the subprogram called. 



Examples. 



IF (A .AND. B) F = SIN (R) 

IF (16 .GT. L) GO TO 24 

IF (D .OR. X .LE. Y) GO TO (18, 20), I 

IF (Q) CALL SUB (Q) 



value is greater than zero. The number of digits in the 
integer size (k) must be at least one greater than the greatest 
number of digits used for m/,Tn 2 , or m s . In the example below, 
k must be greater than or equal to 3. 

m s is optional. If m 3 is not stated, its value is assumed to 
be 1. If it is omitted, the preceding comma must also be 
omitted. 



Examples. 



DO 30 I = 1, M, 2 
DO 24 I = 1, 10 



The do statement is an instruction to execute re- 
peatedly the statements that follow, up to and in- 
cluding the statement numbered n. The first time the 
statements are executed, i has the value m t and each 
succeeding time i is increased by the value of m 3 . After 
the statements have been executed with i equal to the 
highest value that does not exceed m 2 , control passes 
to the executable statement following statement num- 
ber n. This is called the normal exit from the do state- 
ment. 

The Range of the DO Statement. The range of the do 
statement is that set of statements that will be exe- 
cuted repeatedly. That is, it is the sequence of state- 
ments immediately following the do statement, up to 
and including the statement numbered n. After the 
last execution in the range, the do is said to be satisfied. 



The Arithmetic IF Statement 

General Form, if (a) n u n 2 , n 3 

a is an arithmetic expression, type integer or type real. 
tii, tit, n s are statement numbers of executable statements. 

The arithmetic if statement is used to transfer con- 
trol to one of three specified statements depending on 
the value of an arithmetic expression. The arithmetic 
statement a is tested. If a is less than zero, control 
transfers to statement n t . If a is equal to zero, (plus or 
minus), control transfers to statement n 2 . If a is greater 
than zero, control transfers to n 3 . 



Examples. 



IF (A(J, K) - B) 10, 4, 30 
IF (D*E + BRN) 9, 9, 15 



The DO Statement 

General Form, do n i = m u m 2 ,m & 

n is a statement number of an executable statement. 

i is a nonsubscripted integer variable. 

mi,mi,ms are either unsigned integer constants greater than 
zero or unsigned nonsubscripted integer variables whose 



The Index of the DO Statement. The index of the do 
statement is the integer variable i. Throughout the 
range of the do, the index is available for computation, 
either as an ordinary integer or as the variable of a sub- 
script. After a normal exit from a do, the index i must 
be redefined before it is used in computation. After 
exiting from a do by transferring out of the range of 
the do, the index i is available for computation and is 
equal to the last value it attained. 

DO's Within DO's. A do statement can be contained 
within another do statement. This is called a nest of 
do's. If the range of a do contains another do, then all 
statements in the range of the enclosed do must be 
within the range of the enclosing do. The maximum 
depth of nesting, not including implied do's in I/O 
lists, is twelve. That is, a do can contain a second do, 
the second can contain a third, the third can contain 
a fourth, and so on up to twelve statements. 

Transfer of Control. Control cannot be transferred 
into the range of a do from outside its range. However, 
control can be transferred out of a do range. In this 
case, the value of the index remains available for use. 
If the exit is transferred out of the range of a set of 
nested do's, then the index of each do is available. 
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DO 



DO 





Figure 5. Nest of do's 

Figure 5 illustrates the possible transfers in an out of 
the range of a do. In the figure, 1, 2, and 3 are per- 
mitted, but 4, 5, and 6 are not permitted. 

Restrictions on Statements in the Range of a DO. 
Any statement that redefines the index or any of the 
indexing parameters (m's) is not permitted in the range 
of a do. 

The range of a do cannot end with a go to type 
statement or another do. The range of a do can end 
with a logical if, in which case control is handled in 
the following manner. If the logical expression t is 
false, the do is repeated. If the logical expression t is 
true, statement s is executed and then the do is re- 
peated. If t is true and s is a transfer type statement, 
control is transferred as indicated by s. 

When a reference to a subprogram is made in the 
range of a do, care must be taken that the called sub- 
program does not alter the index or any of the indexing 
parameters. 



The CONTINUE Statement 

General Form, continue 

continue is a dummy statement that does not pro- 
duce any executable instructions. It is most frequently 



used as the last statement in the range of a do to pro- 
duce a branch address for go to statements that are in- 
tended to begin another repetition of the do range. 

Example. 



DO 20 I = 2, N 

IF (BIGA .LT. A (I) )BIGA = A (I) 
20 CONTINUE 



The PAUSE Statement 

General Form, pause or pause n 

n is an unsigned integer constant of one to three digits. 

The statement causes the machine to halt. The in- 
teger constant n is in the B-address register. If n is not 
specified, it is assumed to be zero. When the machine is 
restarted by pressing the start key, the next Fortran 
statement is executed. 



The STOP Statement 

General Form, stop 

The stop statement terminates execution of the pro- 
gram. When the stop statement is executed, control 
returns to the System Control Program. The program 
can have any number of stop statements. The stop 
statement must consist entirely of alphabetic char- 
acters. 



The END Statement 

General Form, end 

The end statement defines the end of a program or a 
subprogram. Physically, it must be the last statement 
of each program or subprogram. As the end statement 
is not executable, it must not be encountered in the 
flow of the program. 



14 Fortran IV Specs & Op. Proc. — 1401, 1440, 1460 



The Specification Statements 

The specifications statements provide information 
about storage allocation and the variables and con- 
stants used in the program. 



The COMMON Statement 

General Form, common a, b, c, . . . 

a, b, c, . . . are variable or array names that can be di- 
mensioned 



The DIMENSION Statement 

General Form, dimension v t (ij), v 2 (i 2 ), ■ • • , v n (in) 
Vi, Vi, . . . , Vn are the names of arrays. 

ii, u , . . . , u are each composed of 1, 2, or 3 unsigned in- 
teger constants and/or integer variables separated by 
commas. Each integer specifies the maximum value of 
the subscript, i can be an integer variable only when 
the dimension statement appears in a subprogram. 

Examples. 

DIMENSION A(10), B(5, 15), C(L, M) 
DIMENSION S(10), K(5,5,5), G(100) 

The dimension statement provides the information 
necessary to allocate storage for arrays in the object 
program. It defines the dimensionality and the maxi- 
mum size of each array listed. 

Each variable that appears in subscripted form in 
the source program must appear in a dimension state- 
ment contained in the source program. However, if the 
dimension information for a variable is included in a 
common statement in the source program, it must not 
be included in a dimension statement. 

A single dimension statement can specify the dimen- 
sions of any number of arrays. The dimension state- 
ment that specifies the array size must precede the first 
appearance of each subscripted variable in an execut- 
able or data statement. (See Figure 6). 

Dimensions specified in a common statement are 
subject to all the rules for the dimension statement, 
except that adjustable dimensions are not permitted. 



Example. 



COMMON A, B, C (5, 10) 



DIMENSION A(5, 10) 



CALL MAYMY (...,A, ...) 



SUBROUTINE MAYMY (...,R,...) 



DIMENSION... ,R(5, 10),... 



Figure 6. Passing Array Names 



The common statement refers to a common area in 
core storage. Variables or arrays that appear in main 
programs and subprograms can be made to share the 
same storage locations by using the common state- 
ment. For example, if one program has the statement 
common a and a second program has the statement 
common b, the variables (or arrays) of a and b will 
occupy the same storage locations in the common area. 
These variables (or arrays) appearing in common state- 
ments are assigned locations relative to the beginning 
of the common area. 

Within a specific program or subprogram, variables 
and arrays are assigned core storage locations from the 
high core-storage addresses to lower core-storage ad- 
dresses in the sequence in which their names appear 
in the common statement. Subsequent sequential stor- 
age assignments within the same program or subpro- 
gram are made with additional common statements. 

For example, if the main program contains the state- 
ment 

COMMON A, B, C 

and a subprogram contains the statement 
COMMON L, M, N 

then a, b, and c are assigned sequential locations, as 
are l, m, and n. Further, a and l will occupy the same 
location, b and m will occupy the same location, and c 
and n will occupy the same location. 

Variables declared in common must agree, respec- 
tively, in type. In the preceding example, a and l are 
type real, as are b and m, and c and n. (l, m, and n 
must be declared as real in the subprogram.) 

A dummy variable can be used in a common state- 
ment to establish shared locations of variables that 
would otherwise occupy different locations. For exam- 
ple, the variable x can be assigned to the same location 
as the variable c of the previous example by using the 
following statement. 

COMMON R, S, X 

where r and s are dummy names that are not used else- 
where in the program. 
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Redundant entries are not permitted in a common 
statement. For example, the following statement is in- 
valid. 

COMMON F, G, H, F 

Variables brought into common through equiva- 
lence statements may increase the size of common 
(see The EQUIVALENCE Statement). 

Two variables in common cannot be made equiva- 
lent to each other, either directly or indirectly. 



(a, b, c, ...), (d, e, 



The EQUIVALENCE Statement 

General Form, equivalence 

/,...),... 

a, b, c, d, e, f, . . . , are variables which may be subscripted. 
Subscripted variables can have single or multiple sub- 
scripts. These subscripts must be integer constants. 

Example. 

EQUIVALENCE (A, B(l), C(5)), (D(17), E(3)) 

The equivalence statement controls the allocation 
of core storage by causing two or more variables to 
share the same core storage location. 

An equivalence statement can be placed anywhere 
in the source program. Each pair of parentheses in the 
statement list encloses the names of two or more vari- 
ables that are to be stored in the same location during 
execution of the object program. Any number of equiv- 
alences (sets of parentheses) can be given. 

In an equivalence statement, C(p) is defined as the 
location of the pth, element in the array C. Thus, in the 
preceding example, the equivalence statement indi- 
cates that A, and the B and C arrays are to be as- 
signed storage locations so that the elements A, B(l), 
and C(5) are to occupy the same location. In addition, 
it specifies that D(17) and E(3) are to occupy the same 
location. This implies that D(15) and E(l) occupy the 
same location. 

All variables that are to occupy the same location as 
a result of an equivalence statement must be of the 
same type and must not be inconsistent in relative core- 
storage locations. For example, the statement 

EQUIVALENCE (A(4), C(2), D(l)), (A(2), D(2)) 

is invalid. The equivalencing of A(4), C(2), and D(l) 
sets up an equivalence among elements of each row 
below. 



A(l) 






A(2) 






A(3) 


C(l) 




A(4) 


C(2) 


D(l) 


A(5) 


C(3) 


D(2) 



Thus, D(2) must not be equivalenced to A(2). equiva- 
lence (A(3), A(4)) is also invalid. 

Variables or arrays not mentioned in an equivalence 
statement will be assigned unique locations. Locations 
can be shared only among variables, not among con- 
stants. 

The sharing of storage locations requires a knowl- 
edge of which Fortran statements cause a new value 
to be stored in a location. There are four such state- 
ments. 

1. Execution of an arithmetic statement stores a new 
value in the variable to the left of the equal sign. 

2. Execution of a do statement, the terminal statement 
of a do, or an implied do in an I/O list stores a new 
indexing value. 

3. Execution of a read statement stores new values at 
the locations specified by variable names in the in- 
put list. 

4. Execution of a subroutine or function may store a 
new value in any of its actual arguments or any 
variables in common. 

Variables brought into common through equiva- 
lence statements can increase the size indicated by the 
common statements, as in the following example. 

COMMON A, B, C 
DIMENSION D(3) 
EQUIVALENCE (B, D(l)) 

The layout of core storage indicated by this example 
(extending from the lowest location of common to the 
highest location of common) is: 



A 
B 
C 



D(l) 
D(2) 
D(3) 



A variable cannot be made equivalent to an element 
of an array in such a way as to cause the array to ex- 
tend beyond the beginning of common. For example, 
the following coding is invalid. 

COMMON A, B, C 
DIMENSION D(3) 
EQUIVALENCE (B, D(3)) 

This would force D(l) to precede A, as follows. 



D(l) 
D(2) 
D(3) 
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The Type Statements 

General Forms. 

INTEGER a, b, c, . . . 
REAL a, b, c, . . . 
LOGICAL a, b, c, . . . 
EXTERNAL x,y,z,... 

a,b,c, . . . are variable or function names appearing within 
the program. 

x, y, z, . . . are function or subroutine names appearing as 
actual arguments within the program. 

Examples. 

INTEGER BIXF, X, QF, LSL 
REAL IMIN, LOG, GRN, KLW 
LOGICAL F, G, LWG 
EXTERNAL SIN, MATMPY, INVTRY 

The variable or function names following the type 
(integer, real, logical, or external) in the type state- 
ment are defined to be of that type, and remain that 
type throughout the program. The type cannot be 
changed. 

In the examples, note that lsl and grn need not ap- 
pear in their respective type statements, for their type 
is implied by their first characters. 

The type statement must precede the first use of a 
name in any executable statement or data statement in 
the program. The appearance of a name in any type 
statement except external overrides the implicit type 
assignment. A name can appear in two type statements 
only if one of them is external. A name declared to be 
of a given type can assume only values of the same 
type. 

Subprogram names that are actual arguments of 
other subprograms must appear in external type 
statements. Dummy arguments in a subroutine or 
function statement must also appear in an external 
statement if they are dummy subroutine names that are 
actual arguments of other subprograms. For example, 
assume both somef and other are subprograms. If 
a = somef (other, b, c) + b appears in a program, the 
type statement external other is required in the pro- 
gram. 

The DATA Statement 

General Form, data list/di, d 2 , . . . , dj , list/d u d 2> 
k*d 3 , . . . , d m /, . . . , list/d x , d , . . . , d / 

list contains the names of the variables being defined. 
di is the information literal. 
k is an integer constant. 

Examples. 

DATA R, Q/14.2, 3HEND/, B(2)/0./ 

DATA (B(I), C(I), I = 1, 40, 2) /2.0, 3.0, 38*100.0/ 



The data statement is used to compile data into the 
object program, initializing the values of the specified 
values prior to execution. For example, the result of 
the first data statement would be: 



Variable 



Initialized Value 



R 


14.2 


Q 

B(2) 


END (right justified) 
0. 



The list can contain nonsubscripted variables, sub- 
scripted variables, or array names that imply the en- 
tire array is initialized. Subscripted variables must 
have constant subscripts or subscripts whose variables 
are under control of DO-implying parentheses and asso- 
ciated parameters. The DO-defining parameters must 
be integer constants. 

A k appearing before a of-literal indicates that the 
field is to be repeated k times. The k must be a one to 
three digit integer. It must be separated from the field 
to be repeated by a times sign (*). 

The c?-literals can take any one of the following 
forms. 

1. Integer constants and real constants. 

2. Alphameric characters. (The variable name as- 
sociated with the H- Conversion must conform to 
the normal rules for naming Fortran variables and 
must be type real.) The alphameric field is written 
nH followed by n alphameric characters, n should 
be less than or equal to / -f 2. Each group of / -j- 2 
characters forms a word. If n < / -4- 2, the char- 
acters are right-justified in the field and the word 
is filled out with blanks. If n > / -j- 2, only the left- 
most / + 2 characters are stored in the word and 
the remaining characters are lost. Blanks are signi- 
ficant in alphameric fields. The variable can be re- 
ferred to by the appropriate name in an I/O list or 
as an actual subprogram argument. It cannot be 
used in arithmetic or logical operations. 

3. Logical constants. The logical constants can be 
.true. , t, .false. , or f. 

4. Variable names appearing in data statements can- 
not appear in common statements. 

There must be a one-to-one correspondence be- 
tween the list items and the data literals. For example, 
if it is desired to define 16 alphameric characters (say 
8HDATAbTOb,8HBEbREADb) as a variable (say G) 
and if / is 6, then G must be dimensioned to contain at 
least two elements. 

When DATA-defined literals are redefined during exe- 
cution, these variables will assume their new values 
regardless of the data statement. 
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Input/Output Statements 

The input/output (I/O) statements control the trans- 
mission of data between the computer and input/ 
output devices, such as card readers, card punches, 
printers, magnetic tape units, and disk units. The I/O 
statements fall into one of the following general cate- 
gories. 

FORMAT Statements, format statements are non- 
executable statements that specify the external ar- 
rangement of the edited information to be trans- 
ferred and the editing transformation between 
internal (core storage) and external forms of the in- 
formation, format statements are used in conjunc- 
tion with the general I/O statements. 

General I/O Statements. The general I/O statements 
read and write cause the transmission of informa- 
tion between core storage and the logical file that is 
assigned to an input/output device. (For a descrip- 
tion of logical files, see Logical Files.) 

If these statements refer to format specification 
statements, then the information is edited and the 
I/O statements are called edited T/O statements. 
Otherwise, the I/O statements are called unedited 
I/O statements. 

Manipulative I/O Statements. The statements end 
file, rewind, find, and backspace manipulate the 
input/output device to which a specific logical file is 
assigned. 

I/O Specification Statement. The define file state- 
ment defines the size and characteristics of logical 
files that are assigned to disk units to be accessed 
randomly. 



List Specifications 

The general I/O statements cause the transmission of 
data. 

An I/O list is a series of list items that are separated 
by commas. A single list item can be a subscripted or 
non-subscripted variable. An I/O list is read from left 
to right. 

An I/O list is ordered. The order must be the same 
as the order in which the input exists in the input 
medium, or in which the output is to exist in the output 
medium. 

An I/O list can contain implied do's. All items to be 
included in the range of the implied do and the in- 
dexing information must be set off by parentheses. 



Implied do's can be nested to a nesting depth of three 
by placing matching parentheses around the first and 
last items of each successive inner do range. Redundant 
parentheses are not allowed. 

Consider this I/O list. 

M, (Q(I), I = 1, 10) 

This implies that the information in the external in- 
put and/or output medium is arranged in the following 
order. 

M, Q(l), Q(2), . . . , Q(10) 

Consider this I/O list. 

A, B(3), (C(I), D(I, K), I = 1, 10), 

((E(I, J), I = 1, 10, 2), F (J, 3), J = 1, K) 

This implies that the information in the external in- 
put and/or output medium is arranged in the following 
order. 

A, B(3), C(l), D(l, K), C(2), D(2, K), 
. . . , C(10), D(10, K), 
E(l, 1), E(3, 1), . . . , E(9, 1), F(l, 3), 
E(l, 2), E(3, 2) , . . . , E(9, 2), F(2, 3), 



E(l, K), E(3, K), . . . , E(9, K), F(K, 3) 

An I/O list containing parentheses is executed in a 
manner similar to the execution of a do loop. The left 
parenthesis (except subscripting parentheses) is treated 
as though it were a do statement, with the indexing in- 
formation given immediately before the matching right 
parenthesis. The rules for specifying i = m 1 ,m 2 ,m 3 
are the same as those for the do statement. The do 
range extends up to the indexing information. The 
order of the I/O list shown in the first example can 
be considered equivalent to the following steps. 
M 

DO 1 I = 1, 10 
1 Q (I) 

The order of the I/O list shown in the second ex- 
ample can be considered equivalent to the following 
steps. 

A 

B (3) 

DO 5 I = 1, 10 ) 
C(I) 
5 D (I, K) 

DO 9 J = 1, K 
DO 8 I = 1, 10, i 

8 E(I,J) 

9 F(J,3) 



(C(I), D(I, K), I = 1, 10) 



((E (I, J), I = 1, 10, 2), F (J, 3), J = 1, K) 



In the preceding paragraph, the list item (C(I), 
D(I,K),I = 1, 10) is an implied do. It is evaluated as 
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shown. The range of an implied do must be clearly 
defined by parentheses. 

For a list in the form K, A(K) or K,(A(I),I = 1,K), 
where the definition of an index or an indexing parame- 
ter appears in the list of an input statement earlier than 
the use of the index or indexing parameter, the index- 
ing will be carried out with the newly read-in value. 

Any number of items can appear in a single list. If 
the list is in an edited statement, the format of each 
data value must be the same as specified in a corre- 
sponding format statement. Essentially, the I/O list 
controls the number of the data values read or written. 
If the corresponding format statement indicates more 
data values are to be transmitted than there are items 
on the list, only the number of data values indicated 
on the list are transmitted. All remaining data values 
are ignored. If a list contains more items than there are 
data values on one edited input record, additional rec- 
ords are read. When a read operation is performed, a 
list must not contain more items than data values in 
one unedited input record. 

A list can include no items only if the data to be 
transferred is entirely specified in a format statement. 



Reading or Writing Entire Arrays 

When the reading or writing of an entire array is re- 
quired, an abbreviated notation can be used in the list 
of the input/output statement. Only the name of the 
array need be given, and subscripts can be omitted. 

If A has previously been listed in a dimension or 
common (with dimensions) statement, either the state- 
ment 

READ (5, 10) A or READ (3) A 

is sufficient to cause all the elements of array A to be 
read in the implied order of elements. If A is a 2 X 3 
array, the elements are read into core storage in the 
following order. 

A(1,1),A(2,1),A(1,2),A(2,2),A(1,3),A(2,3) 



The FORMAT Statement 

General Form, format (S 1} S 2 , . . . , S n /S' ly S' 2 , . . . , 
S'J. . .) Each field, Si, is a format specification. 

Example. 

FORMAT (I2/(E12.4,F10.2)) 

The edited input/output statements require, in addi- 
tion to a list of items to be transmitted, reference to a 



format statement that describes the edited data rec- 
ord and the type of conversion to be performed be- 
tween the internal representation and the external 
representation for each item in the list. 

format statements are not executed. They need not 
appear in any special place within the program. Each 
format statement must be given a statement number. 

The format statement indicates the maximum size 
of each edited record to be transmitted. Except when 
a format statement consists entirely of H- or X-con- 
version fields, it is used in conjunction with the list of 
some particular input/output statement. Control in the 
object program switches back and forth between the 
list (which specifies whether data remains to be trans- 
mitted) and the format statement (which gives the 
specifications for transmission of that data). 

Edited data records must consist of one of the fol- 
lowing: 

1. On tape, 200-character records are written. The 
data records, specified by a format statement, be- 
gin in character position one. All unused characters 
are left blank. On disk, either one or two sectors 
is used, depending on whether the record is defined 
to be greater or less than 100 characters. 

2. A punched card record with a maximum of eighty 
characters. 

3. A line to be printed with a maximum of 120 or 132 
print positions, depending on the printer being used. 

The first left parenthesis begins a record. In a read 
operation, the record is read. In a write operation, the 
output record is begun, but not written. 

A slash ends the current record and begins a new 
record. In a read operation a slash means that no more 
information is obtained from the last record that was 
read. In a write operation, the output that has been 
developed is written, even though the output record is 
blank, as when two slashes are adjacent. 

The final right parenthesis of the format statement 
terminates the current record in the same manner as a 
slash. If list items remain to be processed, it also begins 
a new record and repeats. A repeat starts with the last 
repetitive group including the repeater, if there is one. 
Otherwise it starts with the specification following the 
first parenthesis of the format statement. 

During input/output operations, the object program 
scans the format statement to which a specific input/ 
output statement refers. When a specification for a 
numerical, logical, or alphameric field is found and list 
items remain to be transmitted, editing takes place ac- 
cording to the specification, and scanning of the for- 
mat statement resumes. If no list items remain when 
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one of the preceding specifications or the final right 
parenthesis is processed, the current record and the 
execution of that particular input/output statement are 
ended. 



Format Specifications 

Numeric Fields 

Three types of specifications are available for numeric 
data. 



Internal Conversion Code 



External 



Real 


E 


Real with E exponent 


Real 


F 


Real without exponent 


Integer 


I 


Integer 



These types of conversion are specified in the fol- 
lowing forms. 

Ew.d 

Fw.d 

Iw 

E, F, and I specify the type of conversion. 

w is an unsigned integer constant specifying the field width 
of the data, including signs and the exponent part, if 
appropriate. This field width can be greater than that 
required for the actual digits to provide spacing pre- 
ceding the number. 

d is an unsigned integer constant or zero that represents 
the number of numerics in the field that appear to the 
right of the decimal point, d is ignored for input when 
a decimal point actually appears. The exponent part for 
E -conversion is not included in this number. 

For example, the statement FORMAT (1H1, 13, 
E12.4, F10.4) causes the following line to print after a 
skip to channel 1 (when given in conjunction with a 
write statement). 



Stored data 
Field specifications 
Printed line 



+ - + 

00027 9320963102 7634352602 
13 E12.4, F10.4 

b27b-0.9321Eb02bbb-0.0076 
where b indicates a blank. 



Specifications for successive fields are separated by 
commas. Specification of more characters than are per- 
mitted for the appropriate input/output record cannot 
be given. Thus, a format for a record to be printed 
should not provide for more characters (including 
blanks) than can be handled by the printer. 

Information to be transmitted with E- and F-conver- 
sion must be of type real. Information to be transmitted 
with I-conversion must be of type integer. 

The field width w for I-conversion output must in- 
clude a space for the sign. 

The field width w for F-conversion output must in- 
clude a space for the sign, a space for the decimal point 



(optional for input), and a space for a possible zero 
that precedes the decimal if the absolute value of the 
number is less than one. Thus, w — d -f- 3. 

The field width w for E-conversion output must in- 
clude a space for the sign, a space for the decimal point 
(optional for input), and a space for a possible zero 
that precedes the decimal if the absolute value of the 
number is less than one, and four spaces for the E, ex- 
ponent sign, and exponent. Thus, w ^ d + 7. 

The exponent that can be used with E-conversion is 
the power of 10 by which the number must be multi- 
plied to get its true value. The exponent is written with 
an E followed by a minus sign if the exponent is nega- 
tive, or a plus sign or a blank if the exponent is positive, 
and then followed by the exponent. The exponent can 
be one of two numbers. For example, the value .002 
can be written as .2E-02. 

If a number converted by I-, E-, and F-conversion 
on output requires more spaces than are allowed by 
the field width to, an X is inserted in the low-order 
(rightmost) position. If the number requires less than 
to spaces, the high-order spaces are filled with blanks. 
A space preceding a number output under I-, E-, or 
F-conversion indicates a positive value. The plus sign 
is not included, but w must be sufficiently large to in- 
clude the blank or a minus sign. 



Logical Fields 

The specification Lw is used to transfer logical vari- 
ables, to is an unsigned integer constant that specifies 
the field width on the external medium. 

For input fields, T or F as the leftmost nonblank 
character in the field results in a value of .true, or 
.false, for the logical variable. A blank field results in 
a value of .false. . 

For output fields, T or F will appear right-justified in 
the field when the logical variable is .true, or .false. , 
respectively. 



Alphameric Fields 

Fortran provides two ways by which alphameric in- 
formation can be transmitted. The internal representa- 
tion is the same for both specifications. 

The specification Aw causes to characters to be read 
into or written from a core-storage location designated 
by a variable or an array name. 

The specification nH specifies that alphabetic in- 
formation is contained in a format statement. 

The basic difference between A- and H-conversion 
is that alphameric information handled by A-conver- 
sion is given a variable name or an array name. Thus, 
it can be referred to by the appropriate name in an I/O 
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list, a data-name list, an actual subprogram argument, 
or a dummy subprogram argument. The associated 
I/O statement therefore requires a list when A-conver- 
sion is specified by the format statement. 

Information handled by H-conversion is not labeled. 
It is a constant field and cannot be referred to or ma- 
nipulated in core storage in any way. 



A-Conversion 

The variable name to be converted by A-conversion 
must conform to the normal rules for naming Fortran 
variables. The variable name must be of type real. 

For input, nAw is interpreted to mean that the next 
n successive fields of w characters each are to be trans- 
mitted to core storage without conversion. If w is 
greater than / -f- 2 (f is the assigned real size), only the 
f -\- 2 leftmost characters are significant. If w is less 
than f-\- 2, the characters are right justified and the 
high-order positions are filled with blanks. 

For output, nAw is interpreted to mean that the next 
n successive fields of w characters each are to be the 
result of transmission from core storage without con- 
version. If w is greater than f-\- 2 in each of the n 
fields, only f -\- 2 characters of output are transmitted, 
followed by w — (f -\- 2) blanks. If w is less than f -f- 2, 
the w rightmost characters of the field are transmitted. 



H-Convers/on 

The specification nH is followed by n alphameric char- 
acters in a format statement. A comma separates suc- 
cessive specifications, including the H-conversion, used 
in the format statement. The separating comma ap- 
pears after the last alphameric character, which can be 
a blank. For example, 
. . . , 32HbTHISbISbALPHAMERICbINFORMATIONb, . . . 

Note that blanks are considered alphameric characters 
and must be included as part of the count n. 

The effect of nH depends on whether it is used with 
input or output. For input, n characters are extracted 
from the input record and replace the n characters of 
the appropriate source program statement. 

For output, the n characters following the specifica- 
tion, or the characters that replaced them, are written 
as part of the output record. 

Figure 7 shows an example of A- and H-conversion 
in a format statement. The statement FORMAT 
(4HbXY = ,F8.3,A8) could produce the lines shown in 
the figure, b indicates a blank character. 



Blank Fields — X-Conversion 

For input, nX causes n characters in the input record 
to be skipped, regardless of what they actually are. 

For output, nX causes n blank characters to be intro- 
duced into the output record. 



Repetition of Field Format 

It may be desirable to transfer n successive fields 
within the same record with the same format specifica- 
tion. This is specified by placing a number n, an un- 
signed integer constant, before E, F, I, L, or A. Thus, 
the field specification 3E12.4 is the same as E12.4, 
E12.4, E12.4. 



Repetition of Groups 

A repetitive group is an integer constant of not more 
than three digits followed by a left parenthesis, a 
specification list, and a right parenthesis. Thus, the 
specification FORMAT (2(F10.6,E10.2),I4) has the 
same effect as FORMAT (F10.6,E10.2,F10.6,E10.2,I4). 



Scale Factors — P-Conversion 

To permit general use of E- and F-conversion, a scale 
factor s followed by the letter P can precede the speci- 
fication. 

The scale factor is defined for F-conversion input as 
follows: 

10— s X external quantity = internal quantity 

The scale factor is defined for E- and F-conversion 
output as follows. 

external quantity = internal quantity X 10 J 

For input, scale factors have effect only on F-con- 
version. For example, if input data is in the form 
XX.XXXX and it is desired to use it internally in the 
form .XXXXXX, the format specification to make this 
change is 2PF7.4. 



XY = b-93.210bbbbbbbb 
XY = 9999.999bbSNSSWl 
XY = bb28.768bbbbbbbb 



Figure 7. Example of A- and H-Conversion 
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For output, scale factors can be used with both E- 
and F-conversion. For example, the statement FOR- 
MAT (I3,3F11.3) would give the following record. 

b27bbbb-93.210bbbbb-O.008bbbbbb0.554 

Using the same data and the statement FORMAT 
(I3,1P3F11.3) would give the following record. 

b27bbb-932.096bbbbb-0.076bbbbbb5.536 

Whereas, using the same data and the statement FOR- 
MAT (I3,-1P3F11.3) would give the following record. 

b27bbbbb-9.321bbbbb-0.001bbbbbb0.055 

A positive scale factor used for output with E-con- 
version increases the base and decreases the exponent. 
A negative scale factor used for output with E-conver- 
sion decreases the base and increases the exponent. 
Thus, using the same data and the statement FORMAT 
(I3,1P3E12.4) would give the following record. 

b27b-9.3210Eb01b-7.6344E-03bb5.5536E-01 

Whereas, using the same data and the statement FOR- 
MAT (I3,-1P3E12.4) would give the following record. 

b27b-0.0932Eb03b-0.0763E-01bb0.0555Eb01 

The scale factor is assumed to be zero if no value is 
given. However, once a value has been given, it holds 
for all E- and F-conversions following the scale factor 
within the same format statement. This applies to 
both single-record formats and multiple-record formats 
(see Multiple-Record FORMAT Specifications). Thus, 
the specification 

1PE10.4,E12.5,F8.3 



is equivalent to 



1PE10.4,1PE12.5,1PF8.3 



Once the scale factor is given, a subsequent scale factor 
of zero in the same format statement must be speci- 
fied by OP. Thus, if it is desired that only the first item 
in a specification be affected by P-conversion, the spec- 
ification should be written 

1PE10.4,0PE12.5,F8.3 

Scale factors have no effect on I-, A-, and L-conver- 
sion. 



Multiple-Record FORMAT Statements 

To deal with many output records, a single format 
statement can have several single-record format speci- 
fications separated by a slash (/) to indicate the begin- 
ning of a new record. For example, 

FORMAT(3F9.2,2F10.3/8E1 1 .4) 

transfers the first, third, fifth, . . . , records with the 
specification 3F9.2,2F10.3; and the second, fourth, 
sixth, . . . , records with the specification 8E11.4. 



Two consecutive slashes (//) indicate a blank record. 
For example, 

FORMAT(3F9.2,2F10.3//I2//) 

transfers the first, sixth, eleventh, . . . , records with the 
specification 3F9.2,2F10.3; the second, seventh, twelfth, 
. . . , records are blank; the third, eighth, thirteenth, 
. . . , records with the specification 12; the fourth, ninth, 
fourteenth, . . . , records are blank; and the fifth, tenth, 
fifteenth, . . . , records are blank. 

On input, the same format descriptions apply. How- 
ever, on input two slashes (//) indicate a record to be 
ignored. (The record is read, but not processed.) 

If a single multiple-record format statement is re- 
quired in which, for example, the first two records are 
unique and all remaining records are to be transferred 
to the same specification, the specification of the re- 
maining records should be defined as a repetitive 
group by enclosing it in parentheses. For example, 

FORMAT(I2,3E12.4/2F10.3,3F9.4/(10F12.4)) 

would transfer the first record with the specification 
I2,3E12.4, the second record with the specification 
2F10.3,3F9.4, and all remaining records with the speci- 
fication 10F12.4. The repetition starts at the last left 
parenthesis, including a repeater, if present. 

If data items remain to be transferred after the for- 
mat specification has been completely interpreted, the 
specification repeats after the last left parenthesis. 
Group repetition applies again if it is present. Consider 
this example. 

FORMAT(3E10.3,2(I2,2F12.4,F28.17)) 

If more items are to be transferred after this format 
specification has been completely used, the specifica- 
tion repeats with 12 after the last left parenthesis. The 2 
preceding the parenthesis, indicating group repetition, 
applies again. 



Carriage Control 

Carriage control characters must appear in the first po- 
sition of the output record if the record is to be printed. 
The control character does not appear in the printed 
record. The valid characters used to achieve the de- 
sired results follow. 



Character 


Result 


blank 


No space before printing, that is, single space 




printing 





One space before printing, that is, double 




space printing 


1-9 


Skip to channel 1-9 before printing as in- 




dicated 
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FORMAT Statements Read In at Object Time 

A format may be specified for an I/O list at object 
time. In order that this be accomplished, two factors 
must be taken into account. 

First, the name of the variable which will contain the 
format specification must appear in a dimension state- 
ment, even if the array size is only 1. 

Second, the format read in at object time under 
A-conversion must take the same form as a source pro- 
gram format statement, except that the word format 
is omitted. The variable format begins with a left pa- 
renthesis and ends with a right parenthesis. 

Consider this example. A, B, and array C are con- 
verted and stored according to the format specifica- 
tions that are read into the array fmt at object time. 

DIMENSION FMT (12) 
1 FORMAT (8A10) 

READ (1, 1) (FMT (I), I = 1, 8) 
READ (1, FMT) A, B, (C (I), 1 = 1,5) 

Assume that the first data card containing the format 
statement is of the form 

(b2F10.8/b(E10.2))bb . . . 

This implies that (b2F10.8/b will be stored in fmt(1) 
and (E10.2))bb will be stored in fmt(2), assuming 
/ + 2 = 10. The remaining characters will be stored in 
fmt(3) .... This further implies that A and B will be 
read according to the F10.8 format specification and 
C(l), . . . , C(5) will be read according to the E10.2 
format specification. 



Edited Input Data 

Edited input data to an object program is contained in 
records that conform to the following specifications : 

1. The data must correspond in order, type, and field 
width to the field specifications in the format state- 
ment. Reading of data starts with the first character 
position. 

2. Plus signs are indicated by a blank or a preceding + 
(12-zone punch). Minus signs are indicated by a 
preceding — (11-zone punch). 

3. Blanks in numeric fields are regarded as zeros. 

4. Numbers for E- and F-conversion can contain any 
number of digits, but only the high-order f digits 
will be retained. The number is rounded to / digits 
of accuracy. The absolute value of the number must 
be between the limits 10-*°° and (1 — 1(F) X 10", 
or be zero. Numbers for I-conversion must be right 
justified (trailing blanks are regarded as zeros). 



5. Numbers for E-conversion need not have four col- 
umns devoted to the exponent field. The start of the 
exponent field must be marked by an E, or if the E 
is omitted, by a + or — (not a blank). Valid forms 
for the exponent field are: 

E+02, Eb>02, Eb2, E+2, E2, +02, +2, E-22, E-2, -2. 

6. Numbers for E- and F-conversion need not have the 
decimal point punched. The format specification 
will supply the required decimal point. For exam- 
ple, the number — 09321-|-2 with the specification 
E12.4 will be treated as though the decimal point 
had been punched between the and the 9. If a 
decimal point is punched, its position overrides the 
position indicated in the format specification. 

7. A 7-8 punch in column one indicates an immediate 
return to the System Control Program. 



Unedited Data 

Unedited data may be stored on a disk unit or on mag- 
netic tape. The length of each complete unedited rec- 
ord is defined by the number of items in the I/O list. 
Unedited records that are read from either a disk unit 
or magnetic tape must have been written by a Fortran 
write statement. That is, the lists for the read and 
write statements must be of the same length. Further, 
the types of the list items must be in a one-to-one cor- 
respondence. For example, if the list of the write state- 
ment is in the form 

A,B,C 

and the list of the read statement is in the form 
X,Y,Z 

the types of A and X must match, the types of B and 
Y must match, and the types of C and Z must match. 

The information is read or written using the internal 
representation of data values with no conversion. 

The Fortran object-time routines may physically seg- 
ment complete records into partial records. 



General Input/Output Statements 

The input/output devices available on the object ma- 
chine are the only devices that can be referenced in 
an I/O statement. In particular, a disk unit must be 
available in order to use the define file, find, and the 
random form of the read and write statements. The se- 
quential read and write, endfile, backspace and re- 
wind statements can reference a disk unit area only if 
the area has not been referenced in a define fdle state- 
ment. Sequential operations on disk and tape are effec- 
tively the same. 
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The READ Statement 

The read statement designates input. This statement 
is used to transfer data from input devices to the com- 
puter. 

General Forms. 

READ (i, n) list 
READ (i) list 
READ (7 ' e, n) list 
READ (j ' e) list 

i is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file to be used for 
data input. 

n is the statement number of a format statement or a real 
array name that describes the data to be transferred. 

list is an input list. 

; is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file on a disk unit 
whose data input is to be accessed randomly. 

' is a 4-8 punch (equivalent to the @ symbol). 

e is an unsigned integer constant, integer variable, or integer 
expression that specifies a specific record within logical 
file /. 

Examples. 

READ (5, 10) A, B, (D (J), J = 1, 10) 
READ (N, 10) K, D (J) 
READ (3) (A(J), J = 1, 10) 
READ (N) (A(J), J = 1, 10) 
READ (6 ' 55, 15) 
READ (I ' J, 22) 
READ (I ' J + 5) X, Y, Z 

The read (i,n) list statement is used when the logical 
file contains edited information and is assigned to a 
card reader, or to a console printer, or to a tape unit, 
or to a disk unit whose records are to be selected se- 
quentially. The statement causes the edited informa- 
tion to be read from the logical file i according to 
format statement n. Successive records are read in ac- 
cordance with the format statement n until all the 
data items in the I/O list have been read, converted, 
and stored in the location specified by the I/O list. 

The read (i) list statement is used when the logical 
file contains unedited information and is assigned to a 
tape unit or to a disk unit whose records are to be proc- 
essed sequentially. The statement causes the unedited 
information to be read from the logical file i starting 
with the record at the current position of the device to 
which logical file i is assigned. Only one record is read. 
The record is read completely only if the list specifies 
as many variables as the number of values in the rec- 
ord. Unedited records that are to be read in by a For- 
tran program should have been written by a Fortran 
program that used the same degrees of precision; that 
is, the values of k are the same for both programs, and 
the values of / are the same for both programs. An un- 



edited record to be read can be divided into several 
parts by a Fortran I/O routine. 

The read (7 ' e,n) list statement is used when the 
logical file contains edited information and is assigned 
to a disk unit whose records may be processed ran- 
domly. The statement causes the edited information to 
be read according to format statement n starting with 
record e within logical file /'. Successive records are 
read in accordance with the format statement n until 
all the data items in the I/O list have been read, con- 
verted, and stored in the location specified by the I/O 
list. Each record should have no more characters than 
the maximum specified in the define file statement 
for the logical file /. 

The read (7 ' e) list statement is used when the logi- 
cal file contains unedited information and is assigned to 
a disk unit whose records may be processed randomly. 
The statement causes the unedited information to be 
read from record e within logical file /. Only one record 
is read. The record is read completely only if the list 
specifies as many variables as the number of values in 
the record. Unedited records that are to be read in by a 
Fortran program should have been written by a For- 
tran program that used the same degrees of precision; 
that is, the values of k are the same for both programs, 
and the values of / are the same for both programs. To 
contain all of the list data, the record to be read can 
be divided into several parts by a Fortran I/O routine, 
consistent with the description of logical file /' in a de- 
fine file statement. Each record should have no more 
data values than the maximum specified in the define 
file statement for the logical file /. 



The WRITE Statement 

The write statement designates output. This statement 
is used to transfer data from the computer to output 
devices. 

General Forms. 

WRITE (i,n) list 
WRITE (i) list 
WRITE (7 ' e, n) list 
WRITE (/' e) list 

i is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file to be used for 
data output. 

n is the statement number of a format statement or a real 
array name that describes the data to be transferred. 

list is an output list. 

/ is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file on a disk unit 
that is to be accessed randomly for data output. 

' is a 4-8 punch (equivalent to the @ symbol). 
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e is an unsigned integer constant, integer variable, or integei 
expression that specifies a specific record within logical 
file ;'. 

Examples. 



statement. Each record should have no more data val- 
ues than the maximum specified in the define file 
statement for file /. 



WRITE (6, 10)A, B, (C(J), J = 1, 10) 

WRITE (N, 11) K, D (J) 

WRITE (2) (A(J), J = 1, 10) 

WRITE (M) A, B, C 

WRITE (9 ' 55, 15) 

WRITE (I ' J, 22) 

WRITE (I ' J + 5) 

The write (i,n) list statement is used when the logi- 
cal file is to contain edited information and is assigned 
to a card punch, or to a console printer, or to a tape 
unit, or to a disk unit on which records are to be writ- 
ten sequentially. The statement causes the edited in- 
formation to be output on logical file i according to 
format statement n. Successive records are output in 
accordance with the format statement n until all the 
data items in the I/O list have been converted and 
output. 

The write (i) list statement is used when the logical 
file is to contain unedited information and is assigned 
to a tape unit or to a disk unit on which records are to 
be written sequentially. The statement causes the un- 
edited information to be written on logical file i start- 
ing with the record at the current position of the device 
to which logical file i is assigned. Only one record is 
written. The record is written completely only if the 
list specifies as many variables as the number of values 
in the record. The record to be written can be divided 
into several parts by a Fortran I/O routine. 

The write (j ' e,n) list statement is used when the 
logical file is to contain edited information and is as- 
signed to a disk unit on which records are to be written 
randomly. The statement causes the edited information 
to be written according to format statement n starting 
with record e within logical file /. Successive records 
are written in accordance with the format statement 
n until all the data items in the I/O list have been con- 
verted and written. Each record should have no more 
characters than the maximum specified in the define 
file statement for the logical file /. 

The write (/ ' e) list statement is used when the logi- 
cal file is to contain unedited information and is as- 
signed to a disk unit on which records are to be written 
randomly. The statement causes the unedited informa- 
tion to be written starting with record e within logical 
file ;'. Only one record is written. The record is written 
completely only if the list specifies as many variables as 
the number of values in the record. To contain all of 
the list data, the record to be written can be divided Examples. 
into several parts by a Fortran I/O routine, consistent 
with the description of logical file / in a define file 



Manipulative Input/Output Statements 

The find, end file, rewind, and backspace statements 
manipulate the logical files that are used by the object 
program. The end file, rewind, and backspace state- 
ments must not be used to reference logical files that 
are referenced in a define file statement, or logical 
files that are assigned to a card reader, a card punch, 
or a printer. 



The FIND Statement 

The find statement is used to initiate the positioning of 
the access mechanism when the logical file is assigned 
to a disk unit and has been described in a define file 
statement. 

General Form, find (j ' e) 

j is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file on a disk unit 
that contains data input or output to be selected ran- 
domly. 

is a 4-8 punch (equivalent to the @ symbol). 

e is an unsigned integer constant, integer variable, or inte- 
ger expression that specifies a specific record within logi- 
cal file ;'. 

The purpose of the find statement is to enable the 
programmer to increase the speed at which the object 
program is executed. The find statement may substan- 
tially reduce the seek time required by the next read or 
write statement, provided that it references the same 
record e within logical file /. When the statement is 
used, it starts positioning the access mechanism to lo- 
cate the record e within logical file / while permitting 
computation to proceed concurrently. The greater the 
separation between the find statement and the follow- 
ing read or write statement, the greater the concurrent 
processing time. 



The END FILE Statement 

General Form, end file / 

i is an unsigned integer constant or an integer variable that 
refers to a specific logical file. 



END FILE 3 
END FILE N 
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The end file i statement causes an end-of-file indi- 
cation to be written on the logical file i. If the logical 
file is assigned to a tape unit, a tape mark is written. If 
the logical file is assigned to a disk unit, an end-of-file 
record, IbEOF, is written. Either indication is recog- 
nized as an end-of-file condition when sensed by a read 
statement, and can be tested by using the standard 
subprogram eof. 



The REWIND Statement 

General Form, rewind i 

i is an unsigned integer constant or an integer variable 
that refers to a specific logical file. 



Examples. 



REWIND 3 
REWIND N 



The rewind i statement causes logical file i to be 
initialized to its starting point. If the logical file is as- 
signed to a tape unit, the tape will be rewound. If the 
logical file is assigned to a disk unit, the start address 
of the disk area is obtained. 



The BACKSPACE Statement 

General Form, backspace i 

i is an unsigned integer constant or an integer variable that 
refers to a specific logical file. 



Example. 



BACKSPACE 3 



The backspace / statement causes logical file i to 
"backspace" one complete record. If the logical file 
contains edited records, one record is a complete rec- 
ord. If the logical file contains unedited records, there 
can be more than one partial record making up a com- 
plete record. 

If the logical file is assigned to a tape unit, the tape is 
physically backspaced. If the logical file is assigned to 
a disk unit, a disk-address is appropriately decreased. 



Input /Output Specification Statement 

The DEFINE FILE Statement 

The define file statement is used for logical files that 
are assigned to disk units such that records may be 
accessed randomly. The tape resident Fortran system 
cannot use a disk unit. Specifically, the define file 



statement must be used when any of the following 
input/output statements are used in the program. 

READ (j ' e,n) list 
READ (j ' e) list 
WRITE (j ' e,n) list 
WRITE (j ' e) list 
FIND (j ' e) 

General Form, define file ] t (m u l t , f 1} v t ), j 2 (m 2 , l 2 , 
U, v g ), . . . , ji (mi, U, U Vi) 

ji is an integer constant that refers to a specific logical file 
located on a disk unit and can be 1 through 9. This is 
the file name that is referenced in a corresponding read 
or write statement. 

mi is an integer constant that defines the maximum number 
of records in the logical file ji. 

It is an integer constant that defines the maximum length 
of each record in logical file ; ( . If the records are edited 
(fi is E), the length U is the maximum number of char- 
acters in each record, and can be equal to or less than 
200. If the records are unedited (/♦ is U), the length U is 
the maximum number of data values in each record. The 
data values can be type real, type integer, and type 
logical. 

fi is either E or U. E indicates that the data in logical file 
jt is edited. When the data is edited, the data must be 
read or written with statements in the form read (j'e,n) 
list or write (fe,n) list. U indicates that the data in logical 
file jt is unedited. When the data is unedited, the data 
must be read or written with statements in the form read 
(j'e) list or write (j'e) list. 

Vi is a nonsubscripted integer variable name. This variable 
is set at the end of each read or write statement that 
references logical file ji. The value of the variable is set 
to the value of the next available record following those 
records read or written in logical file ji. During the exe- 
cution of a find statement, the value of the variable Vi 
is set equal to the value of the expression specifying the 
record number in the find statement. It must appear in 
common or be passed as a subprogram parameter if it 
is to be referenced by a subprogram at object time. 

Example. 

DEFINE FILE 4(100, 120, E, INDEX4), 5(50, 10, U, INDEX5), 
6(300, 150, U, INDEX6) 

In the example, logical file 4 will consist of not more 
than 100 records, each of which is not more than 120 
characters in length. Any information within the file 
is to be edited according to some format statement(s) 
when read or written. Further, index4 (type integer) 
will be assigned a value reflecting the record number 
following the last processed after each bead or write 
statement. 

Note that two sectors of disk storage will be required 
for each record, implying that 100 X 2 = 200 sectors 
must be available to be assigned to this logical file. If 
each record had been not more than 100 characters in 
length, only one sector of disk storage would have been 
required for each record. 
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Logical file 5 will consist of not more than 50 rec- 
ords, each of which contains not more than 10 data 
values of type real, type integer, or type logical. The 
information within the logical file must be read or 
written with the unedited form of read and write 
statements. Further, index5 (type integer) will be as- 
signed a value reflecting the record number following 
the last processed after each read or write statement. 

Note that two, or some higher integral multiple of 
two, sectors of disk storage will be used for each rec- 
ord. Within each 2-sector partial record, 190 data char- 
acters are available. Therefore, the number of data 
values that can be contained within each 2-sector par- 
tial record is the highest integer which, when multi- 
plied by the maximum oi f -\- 2 and k, will be not 
greater than 190. For logical file 5, assuming that 
f -\- 2 = 10 and k = 5, the ten data values of a record 
will be contained within two sectors, implying that 
50 X 2 = 100 sectors must be available to be assigned 
to this logical file. 

Logical file 6 will consist of not more than 300 rec- 
ords, each of which contains not more than 150 data 
values. Assuming that f + 2 = 10 and k = 5, it follows 
that 19 data values can be contained within each two- 
sector partial record, and eight partial records consti- 
tute a complete record. Thus, 300 X 8 X 2 = 4800 sec- 
tors must be available to be assigned to this logical file. 

define file statements can appear anywhere in the 
program. They are used in conjunction with the find 
and the random form of read and write statements. 
For example, with DEFINE FILE 4(100,120,E,IN- 
DEX4), the following statements might be coded to 
cause every eleventh record to be read. 

DEFINE FILE 4(100, 120, E, INDEX4) 



IVAR = INDEX4 + 10 



READ (4 ' IVAR, n) list 

When programs are to be executed together, all nec- 
essary define file statements must appear in the main 
program. These files that are defined can be referenced 
by file name in read, write, or find statements in the 
subprograms, define file statements that appear in 
subprograms are ignored; however, they can be in- 
cluded for documentary purposes. 

A complete record can contain an integral multiple 
of partial records. The complete record begins with the 
first partial record. If the complete record does not use 
all the partial records, all unused parts are ignored. 



Logical Files Used for Input /Output 

A set of 14 logical files has been defined by the For- 
tran system. Ten of these logical files have been as- 
signed a unique single-digit integer and are available 
to the Fortran programmer. It is by referencing these 
numbers that the Fortran input/output operations are 
accomplished. The correspondence between the logical 
file reference and the actual physical input/output unit 
is established by the Fortran system just prior to exe- 
cuting the object program. 

A complete description of the logical files that are 
defined by the Fortran system is contained in the pro- 
gram specifications section of this publication. 



Subprograms — Function and 
Subroutine Statements 

The Fortran language defines four general types of sub- 
programs: library functions, function subprograms, 
library subroutines, and subroutine subprograms. Li- 
brary functions and subroutines are predefined subpro- 
grams that are a part of the Fortran library, function 
subprograms are functions defined by a function 
statement and its associated subprogram, subroutine 
subprograms are subroutines defined by a subroutine 
statement and its associated subprogram. 

Functions differ from subroutines in that functions 
always return a single result that is the value of the 
function to the calling program, whereas subroutines 
may return any number of values to the calling pro- 
gram, and do not have an actual value of their own. 

Advantages of Subprograms 

One of the advantages of using subprograms is that the 
main program and its several associated subprograms 
can be compiled separately. Thus, a program can con- 
sist of a short main program and any number of sub- 
programs. Changes or error correction can then be 
made by recompiling only the affected program. 

Other advantages are that any subprogram can be 
placed in the Fortran library for use with other pro- 
grams. Subprograms also permit more than one pro- 
grammer to be simultaneously writing a large program. 



Naming Subprograms 

A subprogram name consists of one to six alphameric 
characters. No special characters can appear in the 
name. The first character must be alphabetic. 
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The rules for specifying the type of the function 
value are the same as those for naming variables. 

The type (real or integer) of a predefined library 
function is already specified (Figure 8) and need not be 
defined by the user. 

The type of a function subprogram can be indi- 
cated implicitly (real or integer) by the initial character 
of the name or explicitly (real, integer, or logical) by a 
type statement. In the latter case, the implicit type is 
overridden by the explicit specification. 

The type of a subroutine subprogram is not defined 
since there is no actual value associated with a sub- 
routine. 



Predefined Subprograms 

This section describes the predefined functions and 
subroutines that are incorporated within the Fortran 
library. 

Library Functions 

Incorporated within the Fortran library is a set of pre- 
defined functions. These functions are shown in Figure 
8. Note that the type (real or integer) of each function 
and argument is predefined and cannot be changed by 
the user. 



Library Subroutines 

Incorporated within the Fortran library is a set of pre- 
defined subroutines. These subroutines are given in the 
following list. Included in the list are the machine in- 
dicator test subroutines, i is an integer expression, / is 
an integer variable, m is a logical variable, and r is a 
real variable, sense light refers to symbolic switches 
with the values off and on. 

These subroutines are referenced by call state- 
ments. 



General Form 

SLITE (i) 
SLITET (i, j) 

SSWTCH (i, j) 



Function 

If i = 0, all sense lights are turned off. 
If i — 1, 2, 3, or 4, the corresponding 
light is turned on. 

Sense light i (1, 2, 3, or 4) is tested 
and turned off. The variable ; is set 
to 1 if i was on or / is set to 2 if i 
was off. 

Sense switch i is tested. The variable 
/ is set to 1 if i is off or ; is set to 2 
if i is on. The sense switch feature is 
required on the system for execution. 
i = 1-6 corresponds to sense switches 
B-G. 



General Form 
link (3Hphase-name) 



link (r) 



EOF (m) 



Function 

phase-name stands for a three-char- 
acter phase-name that indicates the 
presence of a program in the absolute 
format stored as a phase on the sys- 
tem file of the Fortran system. The 
phase (program) is loaded and execu- 
tion of the program begins, r, a real 
variable, has an alphameric value 
whose rightmost three characters are 
used as the phase-name. 

m, a logical variable, is assigned a 
value of .true, if the most recently 
executed read statement sensed an 
end-of-file condition; otherwise, m is 
.false. . An end-of-file condition is 
indicated by lEOFb, a tape mark, or 
an empty card reader. If a read state- 
ment is issued after the last-card con- 
dition, no halt occurs; rather, blank 
input is interpreted. The end-of-file 
condition must be tested before the 
next I/O statement is executed. 



Defining Subprograms 

This section describes the function statement that is 
used to name function subprograms, and the subrou- 
tine statement that is used to name subroutine sub- 
programs. 

The FUNCTION Statement 

The function statement is used to name function 
subprograms and must be the first statement of a func- 
tion subprogram. It cannot appear anywhere else in 
the subprogram nor can it appear in a main program. 

General Forms. 

FUNCTION name (a,, a s , . . . , a n ) 
REAL FUNCTION name (a h a*,..., a n ) 
INTEGER FUNCTION name (ai, a t , . . . , a n ) 
LOGICAL FUNCTION name (a,, a s , . . . , a n ) 

name is the symbolic name of the single-valued function 
subprogram. 

a t , an, . . . , On are the dummy arguments of the function and 
can be nonsubscripted variable names, or array names, 
or the dummy names of subroutine, or other function 
subprograms. There must be at least one argument in 
a function subprogram. 

The type of function can be explicitly stated by the 
inclusion of the word real, integer, or logical before 
the word function, as shown in the preceding formats. 



Examples. 



FUNCTION ARCSIN (RADIAN) 
REAL FUNCTION ROOT (A, B, D) 
INTEGER FUNCTION CONST (ING, SG) 
LOGICAL FUNCTION IFTRU (D, E, F) 
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Function 


Definition 


Number of 
Arguments 


Name 


Type of 
Argument 


Type of 
Function 


Exponential 


e Arg 




EXP 


Real 


Real 


Natural 
logarithm 


iog e ( Ar g) 




ALOG 


Real 


Real 


Common 
logarithm 


log 10 (Arg) 




ALOG10 


Real 


Real 


Arctangent 


arctan (Arg) 




ATAN 


Real 


Real 


Trigonometric 
sine 


sin (Arg) 




SIN 


Real 


Real 


Trigonometric 
cosine 


cos (Arg) 




COS 


Real 


Real 


Square root 


(Arg) '/ 2 




SQRT 


Real 


Real 


Absolute value 


|Arg| 




ABS 
IABS 


Real 
Integer 


Real 
Integer 


Truncation 


Sign of Arg 
applied to largest 
integer^JArgl 




AINT 
INT 


Real 
Real 


Real 
Integer 


Remaindering 
(see note below) 


Arg ] (mod Arg 2 ) 


2 


AMOD 
MOD 


Real 
Integer 


Real 
Integer 


Choosing largest 
algebraic value 


Max (Arg], 
Arg 2 , ...) 


^2 


AMAXO 
AMAX1 
MAXO 
MAX1 


Integer 
Real 
Integer 
Real 


Real 
Real 
Integer 
Integer 


Choosing smallest 
algebraic value 


Min (Arg], 
Arg 2 , ...) 


^2 


AMINO 
AMIN1 
Ml NO 
MINI 


Integer 
Real 
Integer 
Real 


Real 
Real 
Integer 
Integer 


Float 


Conversion from 
integer to real 


1 


FLOAT 


Integer 


Real 


Fix 


Conversion from 
real to integer 


1 


IFIX 


Real 


Integer 


Transfer 
of sign 


Sign of Arg 2 
applied to |Arg] 


2 


SIGN 
ISIGN 


Real 
Integer 


Real 
Integer 


Positive 
difference 


Arg, -Min 
(Arg], Arg 2 ) 


2 


DIM 
IDIM 


Real 
Integer 


Real 
Integer 



Note: The function MOD (Argi, Arg 2 ) is defined as Arg]- Arg^/Arg 2 Arg 2 where x is the integral part of x. 
Figure 8. Predefined Library Functions 
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The function subprogram can contain any Fortran 
statement except a subroutine statement or another 
function statement. 

The name of the function must appear at least once 
as a variable on the left side of an arithmetic statement, 
or as an element of an input list. 

Consider the following example. 

FUNCTION CALC (A, B) 



CALC = Z + B 



RETURN 



END 

In this example, the value of calc is computed and its 
value is returned to the calling statement. 

The function subprograms are logically terminated 
during execution by a return statement. They are 
physically terminated during compilation by an end 
statement. 

The arguments in a function statement can be con- 
sidered as dummy variable names that are replaced at 
the time of execution by the actual arguments supplied 
in the function reference in the calling program. The 
actual arguments must correspond in number, order, 
and type with the dummy arguments, and can be con- 
stants, nonsubscripted variables, subscripted variables, 
expressions, array names, or other subprogram names. 

If the value of a dummy argument is changed by the 
subprogram, then the actual argument in the calling 
program is also changed. In this case, the actual argu- 
ment must be a nonsubscripted variable, a subscripted 
variable, or an array name. The actual argument can- 
not be a constant, an expression, or a subprogram 
name. 

Dummy arguments cannot appear in an equiva- 
lence statement in the function subprogram. 

Dummy arguments can be subprogram names. The 
corresponding actual arguments in the calling pro- 
gram must be names that have appeared in an exter- 
nal statement in the calling program. The dummy ar- 
guments can also appear in an external statement. 
In this way, a subprogram name used as an actual 
argument in a calling program can be passed to a 
subprogram, which in turn can pass it on to another 
subprogram. 

If a dummy argument is an array name, a dimension 
statement or a common (with dimensions) statement 
for that array must appear in the function subpro- 



gram. Further, the corresponding actual argument 
must be a dimensioned array name. 

If a dummy array name appears in a common state- 
ment, then the actual argument in the calling program 
must be an array name that appears in the identical 
place in the common statement. 

If a dummy variable name appears in a common 
statement, then the value of the actual argument in the 
calling program replaces the value of the dummy name 
in common immediately upon entry to the function 
subprogram. 



The SUBROUTINE Statement 

The subroutine statement is used to name subroutine 
subprograms and must be the first statement of a sub- 
routine subprogram. It cannot appear anywhere else 
in the subprogram nor can it appear in a main program. 

General Form, subroutine name (a 1} a 2 , . . . , a n ) 
name is the name of the subprogram. 

a t an, ... , a n are the dummy arguments, and can be non- 
subscripted variable names, or array names, or the 
dummy name of another subroutine or function 
subprogram. There must be at least one argument in a 
subroutine subprogram. 

Examples. 

SUBROUTINE MATMPY (A, N, M, B, L, J) 
SUBROUTINE QDRTIC (B, A, C, ROOT1, ROOT2) 

The subroutine subprogram can contain any For- 
tran statement except a function statement or another 
subroutine statement. 

The subroutine subprograms are logically termi- 
nated during execution by a return statement. They 
are physically terminated during compilation by an 
end statement. 

The arguments in a subroutine statement can be 
considered as dummy variable names that are replaced 
at the time of execution by the actual arguments sup- 
plied in the call statement. The actual arguments 
must correspond in number, order, and type with the 
dummy arguments, and can be constants, nonsub- 
scripted variables, subscripted variables, expressions, 
array names, other subprogram names or an alpha- 
meric field. An actual argument that is an alphameric 
field must correspond to a dummy argument that is a 
real variable. 

If the value of a dummy argument is changed by the 
subprogram, then the actual argument in the calling 
program is also changed. In this case, the actual argu- 
ment must be a nonsubscripted variable, a subscripted 
variable, or an array name. The actual argument can- 
not be a constant, an expression, a subprogram name, 
or an alphameric field. 
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Dummy arguments cannot appear in an equivalence 
lence statement in the subroutine subprogram. When 
a dummy argument appears in a subroutine state- 
ment, it cannot also appear in a common statement. 

Dummy arguments can be subprogram names. The 
corresponding actual arguments in the calling program 
must be names that have appeared in an external 
statement in the calling program. The dummy argu- 
ments can also appear in an external statement. In 
this way, a subprogram name used as an actual argu- 
ment in a calling program can be passed to a subpro- 
gram, which in turn can pass it on to another subpro- 
gram. 

If a dummy argument is an array name, a dimension 
statement or a common (with dimensions) statement 
for that array must appear in the subroutine subpro- 
gram. Further, the corresponding actual argument 
must be a dimensioned array name. 

If a dummy array name appears in the common 
statement, then the actual argument in the calling pro- 
gram must be an array name that appears in the identi- 
cal place in the common statement. 

If a dummy variable name appears in a common 
statement, then the value of the actual argument in the 
calling program replaces the value of the dummy name 
in common immediately upon entry to the subroutine 
subprogram. 

The RETURN Statement 

General Form, return 

This is the exit from any subprogram. It returns con- 
trol to the calling program. The return statement is 
the logical end of the subprogram. There can be one 
or more return statements in the subprogram. 

Subprogram Names as Arguments 

function and subroutine subprogram names can be 
used as the actual arguments in the calling program. In 
order to distinguish these subprogram names from or- 
dinary variables when they appear in an argument list, 
their names must appear in an external statement, 
even if they are also used in actual references within 
the same program (see The Type Statements). 



Examples. 



EXTERNAL SIN 
CALL SUBR (A, SIN, B) 



Using Subprograms 

This section describes the method for referencing func- 
tions and subroutines. 



Using Functions 

A function is referenced (or called) by using its name 
followed by its actual arguments in parentheses as an 
operand in an expression. 

General Form. Name (a u a 2 , . . . , a n ) 

Name is the name of the function. The predefined function 
names are shown in Figure 8. 

a h a 2 , . . . , a„ are the actual arguments of the function. The 
arguments can be arithmetic or logical expressions, 
constants, nonsubscripted variables, subscripted vari- 
ables, array names, or other subprogram names. The 
number of arguments required for predefined functions 
is shown in Figure 8. 

A program which references a logical function must 
have the name of that function in a logical type state- 
ment. 

Each actual argument must have been assigned a 
value before the function reference. 



Examples. 

Z = SIN (X) + COS(Y)*Zl 

T = 5.*ARBFNC (55.2/SQRT (10.3*R), ABS (3. +5)) 

In Figure 8 note that the type (real or integer) of 
each built-in function is predefined and cannot be 
changed by the user. Note also that the type of each 
argument is predefined. 



Using Subroutines — The CALL Statement 

The call statement is used only to call a subroutine 
subprogram. 

General Form, call name (a u a 2 , . . . , a n ) 

name is the symbolic name of a subroutine subprogram. 

a h di, . . . ,a n are the actual arguments that are being sup- 
plied to the subroutine subprogram. 

Each actual argument must have been assigned a 
value before the reference to the subroutine. 

Examples. 

CALL MATMPY (X, 5, 10, Y, 7, 2) 

CALL QDRTIC (9. 732, Q/4. 536, R-S**2.0, XI, X2) 

The call statement transfers control to the subrou- 
tine subprogram and replaces the dummy variables 
with the actual arguments that appear in the call 
statement. 

The actual arguments in a call statement can be any 
one of the following. 

1. Any type of constant. 

2. Any type of subscripted or nonsubscripted variable. 
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3. An arithmetic or logical expression. 

4. Any array name. 

5. The name of a function or subroutine subpro- 
gram. The name must also appear in an external 
type statement. 

6. Alphameric characters (allowed only for subrou- 
tines). Such arguments must be preceded by nH, 
where n is the number of characters included in the 
argument and must be less than or equal to / -f- 2. 
When n < / -f- 2, the characters are right justified. 
For example, 9HENDbPOINT. Blank spaces and 
special characters are considered in the character 
count when used in alphameric fields. 

The actual arguments in a call statement must 
agree in number, order, type, and array size (except as 
explained in The DIMENSION Statement) with the 
corresponding arguments in the function or subrou- 
tine statement of the called subprogram. 



any time. See User-Update Jobs and PRODUC- 
TION RUN. 

4. Use the call link (3Hphase-name) or call link (r) 
statement to call the phase. 

When the phase is called, it is read into core storage 
beginning at address 950. It extends upward in core 
storage to include the entire phase. The common area 
defined in the program or a subprogram is not in- 
cluded as a part of the phase. 

The same phase can be called more than one time. 
The sequence of phase calling does not necessarily 
have to correspond to the order in which the phases 
are placed on the system file. However, on a tape sys- 
tem, having the phases placed on the system file in the 
same order in which they are to be called will optimize 
phase-call time. 



Segmenting Programs 

Large programs can be segmented into several phases, 
or overlays. Each phase must consist of a main pro- 
gram and any required subprograms. 

Each phase is given a unique three-character phase 
name by using a compiler option control card when 
the main program is compiled. The phase is called by 
using a call link (3Hphase-name) or call link (r) 
statement in the calling program. 

Data values can be passed between phases by using 
logical files or the common area. Therefore, the com- 
mon area used for passing data values between phases 
must be the same. The longest phase must not overlap 
this common area. 

In order to use the segmenting capability of the For- 
tran system, perform the following operations. 

1. Compile each main program, specifying its unique 
program name. Use a compiler option control card 
to specify the unique program name. If appropriate, 
compile any required subprograms. See FORTRAN 
RUN. 

2. Specify that an absolute deck be punched as a re- 
sult of the loader run that loads the main program 
and any subprograms. Use a loader output option 
control card to get an absolute deck. See LOADER 

RUN. 

3. Perform a user-update job to place the program on 
the system file. Once the program is stored as a 
phase on the system file, the phase can be called at 



Fortran Source Program 

Source Program Statements and Sequencing 

The order in which the source program statements of 
a Fortran program are executed follows these rules: 

1. Control originates at the first executable statement. 
The specification statements and the format, func- 
tion, subroutine, define file, and end statements 
are nonexecutable. In questions of sequencing, they 
can be ignored. 

2. If control was with statement S, then control will 
pass to the statement indicated by the normal se- 
quencing properties of S. If, however, S is the last 
statement in the range of one or more do's that are 
not yet satisfied, then the normal sequencing of S is 
ignored and DO-sequencing occurs. 

The normal sequencing properties of each Fortran 
statement follows: 

Statement Normal Sequencing 

a — b Next executable statement 

BACKSPACE Next executable statement 

CALL First statement of called subprogram 

COMMON Nonexecutable 

CONTINUE Next executable statement 

DATA Nonexecutable 

DEFINE FILE Nonexecutable 

DIMENSION Nonexecutable 

DO no-sequencing, then the next ex- 

ecutable statement 
END Terminates source program 
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Figure 9. Fortran Source Program 



Statement 

END FILE 

EQUIVALENCE 

EXTERNAL 

FIND 

FORMAT 

FUNCTION 

GOTOn 

GO TO (iu, 

iu, . . . , n m ), i 
IF (t) s 

INTEGER 

LOGICAL 

PAUSE 

READ 

REAL 

RETURN 

REWIND 
STOP 

SUBROUTINE 
WRITE 



Normal Sequencing 

Next executable statement 

Nonexecutable 

Nonexecutable 

Next executable statement 

Nonexecutable 

Nonexecutable 

Statement n 

Statement n t 

Statement s or next executable state- 
ment if t is true or false, respectively 
Nonexecutable 
Nonexecutable 
Next executable statement 
Next executable statement 
Nonexecutable 

The first statement or part of a 

statement, following the reference 

to this program 

Next executable statement 

Terminates object program 

Nonexecutable 

Next executable statement 



Writing the Source Program 

The statements of a Fortran source program are usu- 
ally written on a standard Fortran Coding Form, Form 



624-7999. A sample Fortran source program, coded on 
the standard coding form, is shown in Figure 9. This 
program selects the largest value from an array of 
numbers, identified by the variable name A. 

Columns 1-5 of the first line of a statement may con- 
tain a statement number that identifies the statement. 
This number must be an unsigned integer constant less 
than 100,000. Blanks and leading zeros are ignored in 
these columns. For example, bbb50 is the same as 
b5bb0 and 5bbb0. A statement must not be num- 
bered zero. All statement numbers must be unique. 
These statement numbers do not have to be in any 
sequence or order. For example, the first statement of 
a program may be given statement number 100 and 
the 50th statement in a source program may be given 
statement number 1. These statement numbers are 
used, for example, in do loops to indicate the range of 
the do loop, in the go to statement, and to refer to 
format statements. Superfluous statement numbers 
should be kept to a minimum. 

A statement can be continued on as many as nine 
additional lines. Any line with a non-blank, non-zero 
column 6, is considered to be a continuation of the pre- 
ceding line. The actual character used in column 6 
does not have any significance. The first continuation 
card could have a 9 in column 6, the second card an A, 
the third a 2, and so on. 
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Columns 7-72 contain the actual Fortran statements. 
Blanks are ignored except in an H-field of a format 
statement, a data statement, or a call statement. 

Statements with a C in column 1 are not processed 
by the Fortran compiler, but the statements appear in 
the source program listing as comments. If there is a 
C in column 1, columns 2-72 can be used for com- 
ments. Comment cards cannot appear between contin- 
uation cards of a statement. Comment cards cannot 
immediately precede the function or subroutine 
statements. 

Columns 73-80 are not processed and can be used 
for identification. 

The order of execution of the source program state- 
ments is governed by the sequencing described in the 
preceding section. 



Checking the Source Program 

An early successful compilation of a Fortran source 
program is more likely if the coding is checked against 
the following list of commonly-made errors. 



Item to Check 

A-conversion 

Arithmetic expressions 



do parameters 
format statements 



Coding Error 

Field width, w, exceeds the word 
size, f + 2. 

Real and integer numbers, both con- 
stants and variables, mixed in in- 
valid combinations. Often, a real 
constant is written without a de- 
cimal point. 

Subscripted integer variable or ex- 
pression used as a parameter. 

format specifications and I/O list 
not compatible. 



Coding Error 

Misspelled Fortran-language word 
such as equivalent instead of 

EQUIVALENCE. 

Incorrect count for n of nH. 

Statement transfers into the range 
of a do. 

Unreferenced statement after a go 
to, return or stop, end statement 
encountered in program flow. 

Use of same statement number more 

than one time. 

Absence of a referenced statement 

number. 

function or subroutine statement 
missing at beginning of a sub- 
program; return statement missing; 
end statement missing. 

Name is same as a variable name 
used in the program. 

Dummy arguments that are sub- 
scripted or equivalenced variables. 

Each subscripted variable, including 
those in lists, does not appear in a 
dimension statement. 

Variables must be defined in a read 
I/O list, on the left-hand side of an 
arithmetic statement, or in a DATA 
statement before being used on the 
right-hand side of an arithmetic 
statement, in a call statement, or in 
a write I/O list. 



Punching the Source Program 

The Fortran statements, prepared as described in 
Writing the Source Program, are normally punched 
into the standard Fortran card, Form 888157, shown 
in Figure 10. 



Item to Check 

Fortran language 

H-conversion 
Program flow 



Statement numbers 



Subprograms 



Subprogram names 

subroutine state- 
ment arguments 

Subscripted variables 
Variables 



V^"ce« 



FORTRAN STATEMENT 



IDENTIFICATION 



Wool 

ll 2 3 4 5 
l'l 1 1 1 

I 

2|2 2 2 2 

3I3333 
4.4444 
515 5 55 

6*6 6 66 

I 

717 777 

8 8 888 

I 

919 9 99 

1I2 3 4 5 



000000000000000000000000000000000000000000000000000000000000000000 

7 > 9 10 11 12 13 14 15 16 17 IB 19 20 21 22 23 24 25 26 27 23 29 X 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 4< 49 SO 51 52 53 54 55 56 57 58 59 80 61 62 U 64 65 86 67 68 69 70 71 72 
111111111111111111111111111111111111111111111111111111111111111111 

222222222222222222222222222222222222222222222222222222222222222222 
3333333333333333333333333333333333333333333333333333333333333 3 3333 
444444444444444444444444444444444444444444444444444444444444444444 
555555555555555555555555555555555555555555555555555555555555555555 
666666666666666666666666666666666666666666666666666666666666666666 
77777777 77 77777 777777 777777777777 77 7777777777777 777777777777777777 
88 888888 88 88888 8888888888 8888888888 88 88888888888 8888888 8 88 88888888 
9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 



00000000 

73 74 75 76 77 78 79 80 
11111111 

22222 222 
33333333 
44444444 
55555555 
66666666 
7777777 7 
88888888 
99999999 



7 I S 10 11 12 13 14 15 16 17 18 19 20 21 222324252627282930 31 323334353637383948 41 424344454647484950 51 5253545556 57 58! 
IH 888157 



) 61 62 63 H 65 « 67 68 69 70 71 72)73 74 75 76 77 78 79 SO 



Figure 10. Fortran Source Card 
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Table of Source Program Characters 

The following table indicates the list of characters in 
character Set H that can be used in a Fortran source 
program. The equivalent characters in character Set A 
are also given. The characters are shown in collating 
sequence. 



Set H 






(Fortran Characters) 


Set A 


Card Punches 


Blank 


Blank 


Blank 


. 


• 


12-3-8 


) 


□ 


12-4-8 


+ 


& 


12 


$ 


$ 


11-3-8 


* 


* 


11-4-8 


— 


— 


11 


/ 


/ 


0-1 


» 


> 


0-3-8 


( 


% 


0-4-8 


= 


# 


3-8 


/ 


@ 


4-8 


A 


A 


12-1 


B 


B 


12-2 


C 


C 


12-3 


D 


D 


12-4 


E 


E 


12-5 


F 


F 


12-6 


G 


G 


12-7 


H 


H 


12-8 


I 


I 


12-9 



Set H 




(Fortran Characters) 


Set 


J 


J 


K 


K 


L 


L 


M 


M 


N 


N 


O 


O 


P 


P 


Q 


Q 


R 


R 


S 


S 


T 


T 


U 


U 


V 


V 


W 


W 


X 


X 


Y 


Y 


Z 


Z 








1 


1 


2 


2 


3 


3 


4 


4 


5 


5 


6 


6 


7 


7 



Card Punches 

11-1 

11-2 

11-3 

11-4 

11-5 

11-6 

11-7 

11-8 

11-9 

0-2 

0-3 

0-4 

0-5 

0-6 

0-7 

0-8 

0-9 



1 

2 

3 

4 

5 

6 

7 

8 

9 



Note: The character $ can be used in Fortran only in an H- 
conversion field. 
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Program Specifications 



The Fortran Processor Program is a language process- 
ing system that operates entirely under control of the 
System Control Program. Together, the Fortran Proc- 
essor Program and the System Control Program make 
up the Fortran system. 

The Fortran system translates source program state- 
ments written in the Fortran language into machine- 
language instructions. Object-program execution is also 
under control of the Fortran system. In addition to 
these translation and execution functions, the Fortran 
system provides these additional features. 

Expanding the Fortran Library. A Fortran library is 
defined by the system that contains commonly used 
subroutines and functions, such as sine, cosine, and 
logarithms. The Fortran system provides the capa- 
bility of expanding the library to include additional 
user-supplied subroutines. In addition, if the system 
is disk-oriented, the user can relocate the library to 
an area of his choice in disk storage. 

Changing Input/Output Devices. The Fortran system 
provides the user with the option of changing the 
form of input to and output from specific jobs. In 
order that the Fortran system operate at a machine- 
independent level, a set of logical files that are used 
for input/output operations has been defined. Al- 
though these logical files are assumed by the System 
Control Program to be assigned to a defined set of 
input/output devices, the user can change these as- 
signments according to his particular needs. 

Stacking of Jobs. Under control of the System Control 
Program, it is possible to process a sequence of jobs 
without regard to the type of processing that is being 
performed. For example, source programs can be 
compiled and object programs can be executed, all 
in one stack. However, stacking may only be accom- 
plished on the card reader, card punch, or printer. 

Building Object-Program Libraries in Mass Storage. 
By using a particular logical file (system) defined by 
the Fortran system, it is possible to build an object- 
program library in mass storage (disk storage or 
magnetic tape). Because each of these object pro- 
grams is identified by a unique three-character name, 
the user has immediate access to any of the pro- 
grams. Object programs can be inserted or deleted 
from the library at the discretion of the user. If a pro- 



gram is to be used frequently, using the object-pro- 
gram library substantially reduces program load time 
(as opposed to loading from cards) and eliminates 
excessive handling of punched-card object decks. 
The use of the object-program library at execution 
time allows the user to segment a large program into 
sections or overlays. 



The Fortran System 

The Fortran system built by the user contains the Sys- 
tem Control Program and the Fortran Processor Pro- 
gram. 

System Control Program. The System Control Pro- 
gram is the controlling element of the system. Its 
main functions are to analyze control card informa- 
tion, transfer control to the appropriate portion of 
the system, and to perform actual input/output op- 
erations when a logical file is referenced, either dur- 
ing compilation or execution. 

Fortran Processor Program. The Fortran Processor 
Program translates source programs, written in the 
Fortran language, into machine language object pro- 
grams. Object programs are executed under control 
of the Fortran system. 



System Control Program 

System operations can be started by a deck of cards 
supplied by ibm. This deck, called the card boot, pre- 
pares core storage and reads in the first portion of the 
System Control Program from mass storage (disk or 
tape). Subsequently, the entire resident portion of the 
System Control Program is read into lower core 
storage. 

System operations may also be initiated on the tape 
system by pressing tape load and then start on the 
computer console when the system file resides on tape 
unit 1. 
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All control functions for the system are accom- 
plished by the System Control Program. These func- 
tions include: 

Assigning Input/Output Devices. Each logical file is 
assigned to a corresponding user-specified physical 
input/output device. 

Controlling Input/Output Devices. Physical manipu- 
lation of the corresponding input/output device oc- 
curs when the currently active program references a 
logical file. 

Updating the System. Updating the system to the lat- 
est modification level or version is performed by the 
System Control Program. 

Selecting Appropriate Processor Runs. From control 
cards supplied by the user, the System Control Pro- 
gram is able to determine the operations necessary 
for the completion of a job. For example, a source 
program is coded in the Fortran language and the 
user specifies the end result of processing to be a 
machine-language object program in relocatable for- 
mat. This would require that processing be per- 
formed only by the Fortran compiler. The control 
card says in effect that the phases of the Fortran 
compiler are to be called by the System Control 
Program. The System Control Program reads the 
control card and calls the Fortran compiler. Proc- 
essing takes place, and at completion, control reverts 
to the System Control Program which reads the con- 
trol card for the next job. 

The remainder of this section describes the logical 
files that are defined by the system, and the control 
cards required for system operations. 



Logical Files 

In order that input/output functions operate at a 
machine-independent level, a set of logical files has 
been defined by the Fortran system. These logical files 
are used for input/output operations. Each file has a 
specific function and is assigned by the System Control 
Program to a particular input/output device. The user 
can alter the file-assignments temporarily by using 
asgn (assign) control cards. 

The use of the logical files during compilation and 
execution times is described in this section. 



Compilation Time 

During compilation, the logical files can be thought of 
as falling into one of four categories. These categories 
are: 

Residence File 
Operation Files 
External Files 
Internal Files 

The functions of the logical files and the devices to 
which they can be assigned are as follows. 

Residence File 

SYSTEM File. The system file contains the System 
Control Program, the Fortran compiler, the Fortran 
loader, and the user's object-program library. It is 
assigned to a fixed area in a 1311 or 1301 disk unit, 
or to magnetic tape. 



Operation Files 

CONTROL File. The control file may be assigned to 
the card reader or to the console printer. When 
assigned to the card reader, the control file con- 
tains cards that send information to the System Con- 
trol program or the Fortran loader. When assigned 
to the console printer, 80 character records must be 
used to send information to the System Control 
Program and 100 character records to send informa- 
tion to the Fortran loader. 

MESSAGE File. The message file contains informa- 
tion of primary interest to the machine operator. 
These messages are usually diagnostics relating to 
the operating procedures and/or instructions to the 
machine operator. It can be assigned to the printer, 
or to the console printer. 



External Files 

LIST File. The list file, generally associated with 
high-volume printed listings, contains information 
directed primarily toward the source programmer. 
It can be assigned to the printer, or to disk storage, 
or to magnetic tape, or it can be omitted. If the list 
file is assigned to a disk unit, the information is 
stored two sectors per printed line in the move mode. 

INPUT File. The input file contains source informa- 
tion to the compiler. It can be assigned to the card 
reader, or to any available area in disk storage, or to 
magnetic tape. If the file is assigned to a disk unit, 
the card images must be stored one card per sector 
in the move mode. 
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OUTPUT File. The output file may contain the re- 
sults of the operation specified in the run card. It 
can be assigned to the card punch, or to disk stor- 
age, or to magnetic tape, or it can be omitted. If the 
file is assigned to a disk unit, any card images will 
be stored one per sector in the move mode. 

LIBRARY File. The library file is a mass-storage file 
that supports the Fortran subprogram facility. The 
file contains standard Fortran functions and subrou- 
tines such as the sine and cosine functions. It is 
maintained by the Fortran librarian and used by the 
Fortran loader. The library file can be assigned to 
any available area in disk storage, or to magnetic 
tape. 

LOADER File. The loader file contains machine-lan- 
guage object programs in a relocatable format. It is 
built by the Fortran compiler, and used by the For- 
tran loader. The loader file can be assigned to any 
available area in disk storage, or to magnetic tape. 

Internal Files 

WORK1 and WORK2 Files. workI and work2 are re- 
quired files. They are used by the Fortran compiler 
for the getex and putex functions that perform the 
large volume of data handling during compilation. 
They can be assigned to any available area in disk 
storage, or to magnetic tape. 

WORK3 File. work3 is a required file. It can be as- 
signed to any available area in disk storage, or to 
magnetic tape. The work3 file is used as an out-of- 
line file (place) that bypasses data around major 
portions of the compiler. 

WORK4, WORK5, and WORK6 Files. work4, work5, 
and work6 are not used by the Fortran compiler. 
They are defined for the user's input/output re- 
quirements during the execution of the object pro- 
gram produced by the compiler. 



Execution Time 

At execution time, the logical files may be thought of 
as falling into one of two categories. These categories 
are: 

1. Files that are reserved for use by the Fortran sys- 
tem. 

2. Files that are free to be used by the user's program. 

The first category consists of four logical files. They 
are the system, control, library, and loader files. 
The function of these files is essentially the same dur- 
ing execution time as it was during compilation. 



Fortran Numerical File Name 


System Control Program File 


Name 




1 


MESSAGE 
INPUT 




2 


OUTPUT 




3 


LIST 




4 


WORKI 




5 


WORK2 




6 


WORK 3 




7 


WORK4 




8 


WORK5 




9 


WORK6 





Figure 11. Correspondence between Fortran Numerical File 
Names and System Control Program File Names 



The second category consists of the remaining ten 
logical files. The function of each of these files during 
execution time is determined by the user's program. 
These logical files have each been assigned a Fortran 
numerical file name. The correspondence between For- 
tran numerical file names and the System Control Pro- 
gram logical file names is shown in Figure 11. 

The Fortran numerical files can be assigned to the 
same devices as the corresponding logical files. For 
example, the input file can be assigned to the card 
reader, or to any available area in disk storage, or to 
magnetic tape. Likewise, numerical file 1 can be as- 
signed to the card reader, or to any available area in 
disk storage, or to magnetic tape. Numerical files are 
assigned by using the corresponding logical file name. 



Control Cards 

The System Control Program recognizes eight types of 
control cards. They are: 

RUN 

init 

ASGN 
UPDAT 

note 

PAUSE 

COPY 

HALT 

Each type is punched in the Autocoder format. Ap- 
pendix I contains a summary of all specific control 
cards that the System Control Program recognizes. In- 
cluded in Appendix I is a detailed description of the 
manner of punching each specific control card and 
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valid entries for each of the general formats as dis- 
cussed in the following sections. All control cards are 
printed on the message file. 



RUN Cards 

The run card indicates the portion of the Fortran sys- 
tem that is to be selected by the System Control Pro- 
gram. A run card is required for four jobs to be per- 
formed. The four types of run cards are: 



FORTRAN RUN 
LOADER RUN 
PRODUCTION RUN 
LIBRARY RUN 



three-character phase name 



See Preparing Jobs for the specific run card format 
required for each job. 



INIT Card 

The init card is used to initialize the system. When 
the init card is sensed, the assumed logical file assign- 
ments become effective, and the loader file is initial- 
ized to accept a new batch of compiler output. 

The general format of the init card is : 

FORTRAN INIT [any message and/or comment] 

ASGN Cards 

An asgn card indicates to the System Control Program 
that a logical file is to be assigned to a specific input/ 
output device or area. An asgn card is used when the 
user wants a logical file assigned to an input/output 
device or area other than the assumed assignment of 
the System Control Program, or when the user wants to 
change an assignment that he has previously made. 

The general format for an asgn card is: 

file-name ASGN / OMIT t 

The file-name is the specific logical file; device is the 
input/output unit to which the logical file is to be as- 
signed. Two examples for using an asgn card follow. 

The logical file, input, is to be changed from the 
assumed device assignment (reader 1) of the System 
Control Program to an area in disk storage. This area 
is to be on 1311 unit 3, beginning at address 000600 
and extending to (not through) 000900. Note that the 
end address to be punched is one more than the area 
actually used by the input file. The asgn card for this 
example is punched: 

INPUT ASGN 1311 UNIT 3, START 000600, END 000900 

The second example is when a logical file is to be 
omitted. (This option is valid only in specific cases.) 



If the output file is to be omitted, the asgn card is 
punched: 

OUTPUT ASGN OMIT 

Blanks must be left between items in the operand 
field where indicated in the specific formats. For ex- 
ample, if the operand is reader 2, there must be a 
blank between reader and 2. Also, entries must be left- 
justified in the label, operation, and operand fields. 

During a single stack of jobs, an assignment made 
by the user for a single logical file remains in effect 
until another asgn card is sensed for that particular 
file, or until an init card is sensed, or until a halt card 
is sensed. For example, an asgn card that specifies the 
input file to be assigned to reader 2 causes the as- 
sumed assignment, reader 1, to be altered. The System 
Control Program will select reader 2 during a single 
stack until another asgn card for the input file is en- 
countered, or until an init card is sensed. 

UPDAT Card 

The updat card is included in a package supplied by 
ibm, or supplied by the user for the purpose of amend- 
ing the user's Fortran system, updat cards supplied by 
ibm are prepunched in the following format: 



J processor-name 
\ SYSTEM 



UPDAT phase-name, 



/delete \ 

| INSERT f 



This card (excluding delete) will be followed by the 
appropriate data cards. 

NOTE Card 

The note card contains messages and/or instructions 
from the programmer to the machine operator. There 
is no interruption of processing when this control card 
is sensed by the System Control Program. The content 
of the note card is printed on the message file. The 
general format of the note card is : 

NOTE any message and/ or instruction 

One application of the use of a note card might be 
in the case where the programmer wants the program 
listing to include the date on which a particular job 
was compiled. The message that could be used for this 
purpose is: 

NOTE JOB NUMBER FOUR COMPILED 3/2/66 

PAUSE Card 

The pause card contains messages and/or instructions 
from the programmer to the machine operator. When 
the pause card is sensed, the content of the pause card 
is printed on the message file. Then, the System Con- 
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trol Program temporarily halts the system. Processing 
is resumed by pressing the start key. The general for- 
mat for the pause card is: 

PAUSE any message and/ or instruction 

One application of the use of a pause card might be 
in the case where the input file for a job is located on 
disk unit 2. The programmer can inform the machine 
operator of this fact by using a pause card, telling him 
to ready the drive. The message would be: 

PAUSE READY THE PACK ON DISK DRIVE 2. 

COPY Card 

The copy card is applicable only to tape-resident sys- 
tems. It is used when the user wants to duplicate the 
system tape. The copy option permits the user to du- 
plicate the system file, including the library file if it 
resides on the same tape, on another tape (workI). The 
general format for the copy card is: 

COPY [any message and/or identification] 

HALT Card 

The halt card indicates to the System Control Pro- 
gram that processing has been completed. It is the last 
card of a stack. The content of the halt card is printed 
on the message file. The general format for the halt 
card is: 

HALT [any message and/or identification] 



Fortran Processor Program 

The Fortran Processor Program is made up of the fol- 
lowing: 

Fortran compiler 
Fortran loader 
Fortran library 

The following sections contain a description of the 
various components of the Fortran Processor Program, 
a description of the output from the components, and 
a description of any diagnostic messages that the user 
may receive as a result of processing operations. 

Fortran Compiler 

The Fortran compiler is the processing element of the 
processor program. It operates under control of the 
System Control Program. The compiler translates 
source program statements written in the Fortran lan- 
guage into machine-language and interpretative in- 
structions in a relocatable format. These instructions 
are then acceptable to the Fortran loader. 



Instructions in the relocatable format contain sym- 
bolic and relative addresses. These addresses are rela- 
tive to a base address of 00. These symbolic and rela- 
tive addresses are converted to actual addresses by the 
Fortran loader. The result of this conversion is an ob- 
ject program in the absolute format. 

Relocatable formats permit inclusion of several re- 
locatable programs at load time. Inter-program com- 
munication is accomplished by the use of symbolic 
names, whose corresponding addresses are substituted 
at load time by the Fortran loader. 

Compiling Variables 

Five compiling variables are available in the compiler. 
These variables include: 

1. Integer size (the number of significant digits) to be 
used at object time. 

2. Real size to be used at object time. 

3. Object machine size. 

4. Availability of the multiply/divide feature. 

5. Main program name. 

These variables can be specified by using compiler op- 
tion control cards. A description of each of these vari- 
ables follow. 

Integer Size. The assumed integer size is 5. Preceding 
a compilation, the object-time integer size, k, can be 
specified to be any value from 1 through 20. 

Real Size. The assumed real size is 8. Preceding a 
compilation, the object-time real size, /, can be speci- 
fied to be any value from 2 through 20, where / is the 
mantissa length. The compiler will reserve f -\- 2 po- 
sitions for each real variable to allow for a 2-digit 
exponent. 

Object Machine Size. The assumed object machine 
size is 11999. If the object machine is greater than 
the assumed value, the highest core storage address 
available at object-time must be specified if maxi- 
mum core storage usage is to be attained. 

Multiply /Divide Feature. The multiply/divide feature 
is assumed to be available in the object machine. If 
the feature is not available, this fact can be specified 
by using a compiler control card. 

Main Program Name. The main program (phase) name 
is assumed to be ///. By using a compiler control 
card, the user can specify a main program (phase) 
name that is three alphameric characters in length. 
At least one character of the three-alphameric 
character name must be alphabetic. The name ap- 
pears on the first card, disk, or tape record of the 
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relocatable output generated by the compiler. If an 
absolute deck is specified to the loader, the three 
characters are included in the first card of the abso- 
lute deck. These three characters are used to identify 
the program if it is stored as a phase on the system 
file. 

If the program (phase) is to be stored on the sys- 
tem file as a phase that can be called for execution 
at any time, the user must make sure that the three 
characters of the program (phase) name are not the 
same as the name of one of the phases of the System 
Control Program and/or the Fortran processor. The 
names of phases of the Fortran processor are in 
the form nnF, where n is numeric. The names of the 
phases of the System Control Program are in the 
form xxy, where x is alphabetic and y is alphameric. 
Appendix II contains the three-character names of 
the phases of both the System Control Program and 
the Fortran Processor Program. Consult the appen- 
dix to ascertain that there is no duplication of phase 
names. 

Fortran Compiler Output 

The output from the Fortran compiler is on the de- 
vices as specified in the asgn cards. The list file out- 
put, with an assumed assignment to be the printer, is 
composed of a source program listing, a name diction- 
ary, and a sequence number dictionary. Any or all of 
these types of output can be omitted by using an out- 
put option control card. 

Source Program Listing. A listing of the Fortran source 
program is output by the Fortran compiler. The list- 
ing is made up of input card images and a compiler- 
generated sequence number. A sequence number 
appears in front of each card except for a comment 
card. An example of a source program listing is 
shown in the sample program included as Appendix 
IV. 

Name Dictionary. A name dictionary is made up of 
the names of simple variables and/or arrays that are 
included in the source program. Associated with 
each variable and/or array is the corresponding 
object-time relocatable address. These addresses are 
relative to a base address of 001. An array-name ad- 
dress corresponds to the first element of the array. 
An example of a name dictionary is shown in the 
sample program included as Appendix IV. 

Sequence Number Dictionary. The sequence number 
dictionary is made up of the compiler generated se- 
quence numbers and the corresponding object-time 
relocatable addresses. These addresses are relative 
to a base address of 001. The address indicates the 



position of the first character of the transformed 
statement. 

Sequence numbers do not necessarily appear in 
order in the dictionary. Further, a sequence number 
may appear twice in the dictionary. (This could oc- 
cur in the case of a read/write statement. A se- 
quence number would represent the actual input/ 
output subroutine call; the same sequence number 
would represent the transformed I/O list.) Specifica- 
tion statement sequence number addresses appear 
in the dictionary with the addresses equivalent to 
another sequence number address. 

Relocatable Punched Card Deck 

In addition to output on the list file, the user can 
specify, by way of an output asgn card, that a 
punched-card deck in the relocatable format be pro- 
duced by the compiler. This card deck is the same 
object program that is located on the loader file in 
mass storage. When a punched-card deck is specified, 
the user has the option of specifying that the relo- 
catable object program on the loader file be omitted. 
(This is accomplished by using an asgn omit card.) 
Although it is possible to have the object program in 
the relocatable format on both the loader file and the 
output file, generally only one form of output is 
chosen. 

Fortran Compiler Diagnostics 

Diagnostic information is produced pertaining to the 
intelligibility and consistency of the source program as 
defined by the language specifications section of this 
publication. If an error is detected by the compiler, a 
message is printed on the list file informing the user 
of his error. The message printed on the list file can 
have a maximum of three parts. 

The first part of the message is a flag that indicates 
the severity of the error. A single asterisk (*) indicates 
a diagnostic of a warning type. A single asterisk allows 
compilation to continue and relocatable output is pro- 
duced. 

Three asterisks (***) indicate a severe error, and 
compilation is suspended. When this type of error oc- 
curs, the message 

*** COMPILATION SUSPENDED *** 
is printed on the list file. In these instances, control 
is returned to the System Control Program, and a con- 
trol card for the next job is read. 

The second part of the message is the sequence num- 
ber of the statement in error. In certain cases, the 
sequence number is not included as a part of the mes- 
sage. For example, if the name table is being searched 
and an error occurs, no sequence number is included 
in the message. 
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FORTRAN RUN 






C 




SAMPLE PROGRAM TO DEMONSTRATE TYPES OF COMPILER DIAGNOSTICS. 


SAMPLE / 


001 






DIMENSION A(5) 


SAMPLE / 


002 






1=1 


SAMPLE \ 


003 




1 


READ (5,2) A(I) 


SAMPLE / 


OOU 




2 


FORMAT <10X»2F10.3) 


SAMPLE [ 


005 






WRITE (3,3) I 


SAMPLE \ 


006 




3 


FORMAT (1X,1UHRUN NUMBER IS 13, // 17H0BEGIN PROCESSING ////) 


SAMPLE \ 


007 






B(I)=SQRT(A{I) ) 


SAMPLE | 




C 




ADDITIONAL STATEMENTS FOR PROCESSING. 


SAMPLE / 


008 






PAUSE 


SAMPLE I 


009 






GO TO 1 


SAMPLE \ 


010 






END 


SAMPLE 1 




- 






NAME DICTIONARY 
00056 A 



FLAG 



♦** DIAGNOSTICS *** 

SEQ MESSAGE 

007 ARITHMETIC STATEMENT , ARRAY NOT DIMENSIONED (B) 

006 FORMAT STATEMENT, IMPROPER ELEMENT SEQUENCING (,) 

♦ •♦COMPILATION SUSPENDED^« 



Figure 12. Erroneous Coding and Resulting Diagnostics 



The third part of the message is the diagnostic itself. 
The diagnostic can include the type of statement in 
error and in some cases the portion of the statement 
being processed when the error occurred. The portion 
of the statement being processed is enclosed within 
parentheses. 

Figure 12 is an example of erroneous coding and 
the diagnostic messages that result. The first error is 
the three-asterisks type that causes compilation to be 
suspended. In sequence number 007, array B, (en- 
closed within parentheses in the last part of the diag- 
nostic), was not dimensioned in the source program. 

The second error is the one-asterisk type that allows 
compilation to proceed. These are merely warnings to 
the programmer. In sequence number 006, a comma, 
(enclosed within parentheses in the last part of the 
diagnostic), incorrectly appeared in a format state- 
ment. In statement 006, the second comma must pre- 
cede 13 rather than follow 13. Further, a comma should 
not separate the 13 and the / in a format specification. 

An additional diagnostic message can appear in the 
sequence number dictionary. The diagnostic message 

***UNDEF STMT NO*** 

will appear in the sequence number dictionary follow- 
ing the sequence number whose associated source 



statement contains a reference to an undefined state- 
ment number. 

If an error is made when punching a compiler option 
control card, the content of the card is output on the 
list file beginning in position one, and the message 

**BAD CONTROL CARD** 
appears in positions 61-80. 

Fortran Loader 

The Fortran loader operates on the relocatable object 
programs that are produced by the Fortran compiler. 
It operates under control of the System Control Pro- 
gram. The function of the Fortran loader is to load ob- 
ject programs in the relocatable format into core stor- 
age. It relocates addresses and provides linkage among 
the programs, when appropriate. Optionally, the loader 
produces the relocated object program on the output 
file in absolute format, or on the list file as a storage 
print, or starts the execution of the program. 

Under normal operations, the relocatable object pro- 
grams are present on the loader file in mass storage 
(disk or tape). Therefore, during a loader run, the 
loader file is always referenced by the Fortran loader. 

When the loader file is assigned to mass storage, the 
relocatable programs are read into core storage when 
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a control card designating execution or no execution 
is sensed. At this point, the entire content of the loader 
file is read into core storage. Subprograms from the 
library file are then included, if appropriate. 

If the user has specified a punched-card deck as a 
result of the Fortran compiler processing, the loader 
file must then be assigned by the user to the card 
reader to which the control file is assigned. (All card 
input for the Fortran loader must be from the same 
device.) 

When the loader file is assigned to a card reader, 
the relocatable programs must be read into core stor- 
age before the execution or no execution card is sensed. 
(The execution or no execution card is the last control 
card of the input for loader processing.) For this rea- 
son, an additional card, an include card, is required 
preceding the relocatable programs to signal the For- 
tran loader that additional programs from the loader 
file (card reader) need not be included when the last 
control card is encountered. Instead, inclusion of re- 
quired library routines takes place. 

If additional programs are to be present during 
loader processing, the user can specify the location of 
these programs in mass storage by way of asgn cards. 
These areas would be referred to as the logical files 
input and work files. The user would have to supply 
an include card for each of the logical files that is as- 
signed. With the include card, the user could specify 
the entire file be read into core storage along with the 
main program from the loader file. Further, if the 
entire file is not required, the user could specify by 
name a specific program to be read into core storage 
along with the main program. Subprograms from the 
LD3RARY file are then included. 

If more than one set of relocatable programs is on 
the loader file, i.e., the programs are batched, the user 
normally would want to process all the programs at 
one time. If this is the case, the loader relocates and 
loads all programs encountered until the end of the file 
is sensed. If the file is a disk unit, a record with lEOFb 
as the first five characters signifies the end of the file. 
A tape mark signifies the end of the file for tape files. 
The last card in a deck signifies the end of the file for 
card files. When batching is performed by the compiler 
on the loader file, an end-of-file is always defined. 

When a program is to be executed after loader proc- 
essing, the loader prepares core storage for execution. 
The loader overlays itself with a standard overlay 
package. This overlay package consists of an arithmetic 
interpreter and various input/output routines. The 
user's program is then executed. 

If a program is not to be executed after loader proc- 
essing, control returns to the System Control Program, 
which reads the next card in the control file. 



Fortran Loader Output 

The Fortran loader can produce three types of output. 
Unless specified to the contrary by an output option 
control card, a name map is output on the list file. By 
way of an output option control card, the user can 
specify that an absolute deck be produced on the out- 
put file and a storage print be produced on the list file. 

Name Map. Unless the user specifies otherwise, a 
name map is produced on the list file. The name 
map is a table that includes all external names as- 
signed during the loading process. Each name is as- 
sociated with its absolute address. The user can then 
determine all entry points for the subprograms 
within the object program. 

Absolute Deck. By using an output option control 
card, the user can specify that an absolute deck be 
produced on the output file. The absolute deck is 
made up of the entire relocated program, including 
the loader overlay package for the processor ma- 
chine being used for the loader run. This deck can 
then be stored as a phase on the system file for sub- 
sequent runs on the same processor machine used 
during the loader run. When this is done, the phase 
(absolute deck) can be selected from the system file 
by using a three-character phase name. The three- 
character phase name is the three-character main 
program name specified to the compiler. The three- 
character phase name appears in columns 78-80 of 
each card of the absolute deck. It also appears in 
columns 21-23 of the first card of the absolute deck, 
which is an updat insert card. The deck is se- 
quenced in columns 73-75, beginning with 001. 

Storage Print. By using an output option control card, 
the user can specify that a storage print be produced 
on the list file. The storage print shows the absolute 
locations of the programs that were loaded and relo- 
cated. The storage print does not include the overlay 
package. 



Fortran Loader Diagnostics 

Incorporated within the Fortran loader is the capabil- 
ity for recognizing error conditions that may occur dur- 
ing the loading process. These error conditions may 
prevent the successful completion of the user's pro- 
gram. The conditions are diagnosed by the loader, and 
an error indicator is output on the list file and a halt 
occurs. The error indicator, error n, is in character 
positions 14 through 20. 

Figure 13 shows the error conditions that may arise, 
and the action that is taken if the system is restarted. 
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Message 


Meaning 


Action if Restarted by Pressing START on the Console 


ERROR 


Two main programs have been encounfered. 


A storage print and a name map are output on the LIST 
file. Execution is suppressed, and control returns to 
the System Control Program, which reads the next card 
in the CONTROL file. Adjustment of the INPUT file 
may be necessary before pressing START. 


ERROR 1 


COMMON area of the program being loaded does not 
match a previously encountered COMMON area. 


ERROR 2 


Integer size and/or real size is inconsistent. 


ERROR 3 


Core storage is exceeded. 


ERROR 4 


Loader control card was not recognized. 


ERROR 5 


The subprogram whose name appears on the LIST file along 
with ERROR 5 was not found in the library. 


ERROR 6 


The name that appears on the LIST file along with ERROR 
6 was multiply defined. 


ERROR 7 


Main program not included. 


ERROR 8 


Name table overflow. 


ERROR 9 


Library header record not present where the library is 
assigned. 



• Figure 13. Fortran Loader Diagnostic Messages 



Object Time Diagnostics 

Conditions may arise during the execution of the ob- 
ject program that the system recognizes as being er- 
roneous. A message is printed unconditionally on the 
printer, starting at print position one. Messages are in 
the form 

XXX YYY 

where xxx is the error code for arithmetic errors and 
input/output routines, and yyy is the address of the lo- 
cation following the branch to the read/write subrou- 
tine or the interpreter. The remainder of the printed- 
line contains the current contents of a work area. The 
system does not halt when these errors occur. 

Codes (xxx) for arithmetic errors, the meaning of 
the codes, and the values that are used by the object 
program follow. 

Value used in 



xxx Code 


Meaning 


Objec 


t Pre 


NOF 


Exponent overflow dur- 
ing normalization 


±.99. . 


.E99 


DZE 


Attempt to divide by 
zero 


±.99. . 


.E99 


EOF 


Exponential greater 
than 10" 


±.99. . 


.E99 


LNZ 


Logarithm of zero 


±.99. . 


.E99 


SCL 


Sine or cosine argument 
too large 


zero 





xxx Code Meaning 

sse Subscript error — index 

greater than 15999 



lnn Logarithm of negative 

number 
ztz Zero raised to zero 

power 
son Square root of negative 

arguement 



Value used in 
Object Program 

A hard halt with 
2002 in the A-ad- 
dress register. 
In | arg I 



v\ 



arg 



Codes (xxx) for input/output routine errors, the 
meaning of the codes, and the action that is taken in 
the object program as a result of the error follow. 



xxx Code 
E01 

E02 

E03 

E04 



E05 



E06 



Meaning 

read/write statement 
with no list or format 
statement. 

List exceeds the logi- 
cal record on an un- 
edited read. 

Variable type and con- 
version specification do 
not match. 

Edited record is too 
long. 

End of format de- 
tected twice with the 
same list element. 

Edited record was ex- 
ceeded while process- 
ing H-conversion field. 



Result 

The next statement 
is processed. 

The next statement 
is processed. 

The next statement 
is processed. 

The next statement 
is processed. 

The next statement 
is processed. 

The next statement 
is processed. 
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xxx Code 


Meaning 


Result 


E07 


Unrecognizable char- 
acter in E-, F-, or I- 
conversion input. 


Assumed 
zero. 


value is 


E08 


Too many signs in E-, 
F-, or I-conversion in- 
put. 


Assumed 
zero. 


value is 


E09 


Too many decimal 
points in E- or F- 
conversion input. 


Assumed 
zero. 


value is 


E10 


Exponent is more than 
two positions in E- 
conversion input. 


Rightmost position(s) 
are lost. 


Ell 


No exponent after "E" 
in E-conversion input. 


Assumed 
zero. 


value is 


E12 


Exponent specified in 
F-conversion input. 


Treated as E-con- 
version input. 


E13 


Exponent overflow in 
E- or F-conversion 
input. 


Assumed 
zero. 


value is 


E14 


Decimal point or ex- 
ponent with I-conver- 
sion input. 


Assumed 
zero. 


value is 


E15 


Input data field is 
longer than variable. 


Assumed 
zero. 


value is 


E16 


L input, and first non- 
blank character not 
"T" or "F". 


Assumed 

.FALSE. . 


value is 


E17 


backspace references 
file not previously ref- 
erenced. 


The next statement 
is processed. 


E18 


end file references 
device other than a 


The next statement 
is processed. 



E19 

E20 
E21 
E22 

E23 
E24 

EOJ 



mass-storage device. 

find references disk 
unit with inoperative 
access mechanism. 

Illegal variable file 
specification. 

Illegal characters in 
object-time format. 

Disk area exceeded, 
or end-of-file was 
sensed during write 
operation. 

Parenthesis mismatch 
in object-time 
format. 

H-conversion field ex- 
tended beyond the end 
of the record in ob- 
ject-time format. 

A 7-8 punch in col- 
umn 1 was detected 
during a read opera- 
tion. 



Press start on the 
console to retry the 
disk I/O operation. 

The next statement 
is processed. 

The next statement 
is processed. 

The next statement 
is processed. 



The next statement 
is processed. 

The next statement 
is processed. 



Control is returned 
to the System Con- 
trol Program, which 
reads the next con- 
trol card. 



Fortran Library 

The Fortran library is made up of standard Fortran 
functions and subroutines. Collectively, the functions 



and subroutines are referred to as subprograms. These 
subprograms are included in the user's program at load 
time, just before execution. 

The Fortran library is built and maintained by the 
librarian. The expansion capability of the system per- 
mits the user to code subroutines and place them in 
the library. The method for adding (or deleting) sub- 
routines from the library is described in Preparing Li- 
brary Jobs. 

The standard subprograms supplied by ibm are de- 
fined in the language specifications section of this pub- 
lication. 



Object Programs 

This section contains a description of the way object 
programs are contained in core storage at the time they 
are executed. Topics discussed in this section include 
storage allocation, the standard loader overlay, sub- 
programs, statement expansions, and an explanation of 
the core-storage allocation for the sample program 
contained as Appendix W. 



Storage Allocation 

In general, a Fortran source program is translated into 
interpretive strings representing arithmetic expressions 
or input/output lists, sequences of tests for logical 
expressions, and subroutine calls with necessary pa- 
rameters. 

Each Fortran main program or subprogram is rela- 
tive to a relocatable base address of 001, and is ordered 
in the following manner. 

1. Constants common to every program and subpro- 
gram 

2. Arrays 

3. Simple variables and constants 

4. Executable statement expansions 

5. format statement and input/output list expansions 

6. Subprogram prologue and epilogue. 

Each real variable requires / + 2 positions of core 
storage. Each integer variable requires k positions of 
core storage. Each logical variable requires one posi- 
tion of core storage. 

The number of core-storage positions required for an 
array is determined by multiplying the array dimen- 
sions together and multiplying that product by the ap- 
propriate word size according to type (real, integer, or 
logical). 
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Integer constants appear in core storage with a 
length as written, but leading zeroes are dropped. A 
maximum of k positions is permitted; however, fewer 
may be used. Real constants always require a length 
of / -f- 2 positions in core storage. Logical constants 
require one position of core storage. 

Arrays and simple variables in common are assigned 
absolute (i.e., non-relocatable) addresses beginning 
with the high core-storage address and proceeding 
with decreasing addresses. No relocatable load cards 
are generated. 

The Fortran loader normally loads a main program 
and possibly several subprograms in the relocatable 
format from the loader file. The first program read 
from the loader file is loaded into core storage begin- 
ning at address 5701. Subsequent loading follows the 
preceding program. Any required standard subpro- 
gram will then be relocated and loaded following the 
user-programs. A communication and system- constant 
area is prepared from core-storage address 950 to 1010. 

When loading is complete, the loader prepares for 
object-program execution by calling a set of standard 
subprograms, called the standard loader overlay, al- 
ways required by the object program. Execution then 
takes place. 



Standard Loader Overlay 

The standard-loader-overlay package occupies core- 
storage positions 1010 through 5700 during object- 
program execution. The overlay package includes rou- 
tines such as the arithmetic interpreter, object-time 
error messages, and the general read/write service 
routines for initialization, file opening, end-of-file de- 
tection, buffer clearing, and unit record (card reader, 
card punch, printer, and console printer) input/output 
processing. Also included are the input/output list 
routine, and several formatting routines to handle for- 
mat initialization, FORMAT-list interaction, the slash 
(record delimiter) element, and I, E, and F input and 
output conversions. Additional selectively included 
subroutines are normally required when using a for- 
mat statement, as described with character counts in 
the following section. 



Selectively Included Standard Subprograms 

A list of standard subprograms that exist on the li- 
brary file in the relocatable format follows. Each is 
relocated and loaded by the loader, if required by the 
user-program(s). Note that some standard subprograms 
require other standard subprograms. The use of cer- 
tain capabilities of the Fortran language as well as ex- 
plicit subprogram references require the inclusion of 



External 


Character 


Name 


Count 


G. 


143 


H. 


39 


L. 


18 


M. 


153 


N. 


135 


O. 


191 


P. 


230 



standard subprograms. The external names that are 
associated with the subprograms appear in the name 
map when the corresponding subprogram is loaded. 



Subprogram 

format left parenthesis 

format internal right parentheses 

format scale factor 

format H-specification 

format L-specification, requires P. 

format A-specification, requires P. 

format A-, L-, I-, F-, or 

E -specification 
format final right parenthesis 

Random file processing for find or 
random read/write (disk-resident) 
system only) 



Each logical file control word for file 

i, where — i — 9 
Unedited read/write 



backspace 



A. 
B. 
C. 
D. 
E. 
F. 



find (disk-resident system only) 
Variable file name search 
Address vector for random file 

definition vectors, requires V. 
Address vector for sequential file 

control words, requires V. 
Object-time format, requires G., 

H., L., M., N., O., P., and Q. 
Tape I/O with disk-resident system 
Subscripting 



Multiply/divide subroutine 



R. 



T. 

U. 
V. 
X. 



W. 

Z. 

)A 
)B 
U) 
V) 
Y) 
Z) 
)C 
)D 
)E 



98 



217 



21 

( 373 (disk) 
I 369 (disk) 

I 241 (disk) 
1 171 (tape) 

: 153 (disk) 
; 90 (tape) 

78 (disk) 
.47 (tape) 

181 

106 

33 

33 

1061 

171 



283 



471 
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Subprogram 



do, or implied do in I/O list 



External 
Name 



Sense light 



Sense light test, requires SSLITE 
Sense switch test 

End-of-file test 

Phase linkage (also required by stop 
statement) 




EOF 



LINK 



Character 
Count 



173 



59 

82 
83 

44 (disk) 
44 (tape) 
22 (disk) 
22 (tape) 



Other uses of the Fortran language, as well as ex- 
plicit references to standard Fortran functions, cause 
the loading of an 8-character BCE instruction for each 
function, plus the coding for the function itself. The 
external name associated with the BCE instruction is 
of the form ,c , where c represents the alphameric char- 
acter unique to each standard function. The complete 
set of required BCE instructions for a particular pro- 
gram exists together in core storage after the pro- 
grants) have been loaded by the Fortran loader. The 
external name ,9 appears at the beginning of the BCE 
instructions. 



Subprogram 

QUIT — leave interpretive coding for 
executable coding 

Relational expression testing, includ- 
ing arithmetic if 



Absolute value — ABS 
— IABS 

Positive difference — DIM 
— IDIM 



External Character 
Name Count 

,0 8 

,0 8 

,1 8 

,2 8 

,3 8 

A 8 

,5 8 

(0 

(1 

(2 

(3 

(4 

(5 

,A 

,B 

(A 

,D 

,V 

(D 



134 



11 



64 



Subprogram 

Extreme value — AMAXO, requires ,R 
and (R 

— AMAX1 

— MAXO 

— MAX1, requires ,1 
and (I 

— AMINO, requires ,R 
and (R 

— AMIN1 

— MINI, requires ,1 
and (I 

— MINO 



External Character 
Name Count 



Truncation — IFIX 
Float — FLOAT 

Remaindering — MOD 

— AMOD, requires ,R 
and (R and ,1 and (I 

Transfer of sign — ISIGN 
— SIGN 

Truncation to real — AINT, requires (I 
and (R 

Complement compression, required by 
a subprogram with adjustable di- 
mensions — CMCM, requires sub- 
scripting 

Integer exponentiation 

Power — logarithmic part of real ex- 
ponentiation, requires A) and (L 
Cosine — COS, requires A) and (S 
Sine — SIN, requires A) 



Common logarithm — ALOG10, re- 
quires A) 

Natural logarithm — ALOG, requires 

A) and (L 



,E 

,F 
,G 
,H 



,K 

,o 

,Y 

(E 

(F 

(G 

(H 

(J 

(K 

(O 

(Y 

,1 

(I 

,R 

(R 

,M 

(M 

,P 

(P 

,U 
,W 

(W 

,z 

(Z 

,8 
(8 



,7 
(7 

,6 
,C 

,s 

(c) 

(Sj 
,L 

(L 

,N 



248 



8 

129 
8 
67 



208 



69 



99 

8 
18 



319 



441 

8 

370 

8 
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Subprogram 

Square root — SQRT, requires A) 

Arctangent — ATAN, requires A) 

Exponential — EXP, requires A) 

Power series subroutine required by 
various transcendental functions 



External 


Character 


Name 


Count 


,Q 


8 


(Q 


228 


,T 


8 


(T 


503 


,x 


8 


(X 


262 


A)\ 




B) \ 




C) 1 




D) 1 




E) / 




F) / 




G) 




H)\ 
I) / 


291 


J) 




K)l 




L) \ 




M) I 




N) 




0) / 




P) / 





Statement Expansions 

The common, equivalence, and type statements do 
not generate object-time characters. These statements 
serve only as information to the compiler. 

The data statement information literals, converted 
to internal notation, appear in the space allocated for 
their respective variables or array elements. Either 
f -\- 2,k, or one position is used. 

An arithmetic statement defining a numerical value 
is translated into a character string consisting primarily 
of one-character operators and three-character (ad- 
dress) operands. References to standard functions re- 
quire one character of core storage, plus the inclusion 
of a BCE for the function and the function itself. Sub- 
scripted variable references normally require five char- 
acters plus six for each dimension and the inclusion of 
the subscript subroutine. 

An arithmetic statement defining a logical value is 
normally translated into a sequence of eight character 
tests on the various logical variables. Arithmetic 
strings, as described in the preceding paragraph, fol- 
lowed by a four-character relational test (one-character 
function reference plus a three-character parameter) 
represent a relation. 

A go to statement results in a four-character branch 
instruction. A computed go to results in as many eight- 
character branch instructions as there are statement 
numbers in the computed go to. 



A logical or arithmetic if results in very nearly the 
same object expansion as an arithmetic statement, and 
can be approximated in essentially the same fashion. 

The do statement generates 23 characters, and causes 
the inclusion of the do subroutine. Four characters are 
required after the final executable statement in the 
range of the do. 

The continue statement generates no object char- 
acters. 

The pause statement generates either one character 
or five characters, depending upon the absence or pres- 
ence of the optional integer constant. 

A stop statement generates ten object-time char- 
acters and causes the inclusion of the link subroutine. 

The end statement generates ten object-time char- 
acters. 

Input/output lists are translated into a sequence of 
subroutine calls and interpretive strings. The sample 
program shown in Appendix IV gives an example of 
input/output lists. 

A format statement is translated into a sequence of 
subroutine calls with parameters corresponding to the 
format elements used. Additional selectively included 
standard subprograms are normally required. 

A read or write statement, or one of the manipula- 
tive input/output statements is translated to a sub- 
routine call with required parameters. Corresponding 
lengths are: 

read/write 19 

find 10 

7 



END FILE 

REWIND 

BACKSPACE 



A standard subprogram is required for each type of 
manipulative input/output statement used. An expres- 
sion consisting of something more complex than a 
single non-subscripted variable or constant in a find 
statement, or in the random form of a read or write 
statement, causes the generation of additional charac- 
ters, similar to the arithmetic statement. If a variable 
file name is used, ten additional characters are required 
for each reference, as well as two or three standard 
subprograms. 

The define file statement causes the generation of 
seventeen characters for each file defined. The external 
names $i, where ^ i ^ 9, are also generated by the 
define file statement. 

The function and subroutine statements cause gen- 
eration of a prologue for the evaluation of parameters 
and array dimension calculations, if required, and an 
epilogue to reset any values required and return con- 
trol to the proper place. 
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The return statement generates four characters. 

The call statement generates four characters, plus 
three characters for each actual argument. If the actual 
arguments consist of more complicated expressions 
than a single non-subscripted variable, constant, or 
alphameric field, then an expression-evaluation string 
for either arithmetic or logical expressions is also 
generated. 

It was found that twenty-three typical programs had 
statement expansions averaging approximately thirty 
characters per statement. A program containing nu- 
merous long format statements had a significantly 
higher average, whereas a program almost entirely 
composed of simple arithmetic statements had a some- 
what lower average. In all cases, additional storage was 
required for arrays, variables and constants, and re- 
quired subprograms. Thus, the total core-storage re- 
quirement above the base loading point of 5700 varied 
considerably, ranging from about 500 characters to 
about 10,000 characters. 



Core-Storage Allocation for the Sample Program 

The discussion in this section refers directly to the 
sample program that is shown as Appendix IV. Core 
storage has been allocated for the object program in 
the following manner. 

Area Content 

0-949 Resident System Control Program functions 

950-1009 Communication area, system constants 

1010-5700 Standard loader overlay 

5701-6205 Main program, relocated 

5701-5850 Constants, arrays, variables 



Area Content 

5851-5991 Executable and end statements 

5992-6205 format's, input/output lists 

6206-8045 Selectively included standard subprograms 

6206-6227 link subroutine, required by stop statement 

6228-6510 Subscripting subroutine 

6511-6981 Multiply/ divide subroutine 

6982-7154 do subroutine 

7155-7206 Function branches for relational functions, re- 
quired by logical if statement 

7207-7340 Relational expression testing 

7341-7483 format left parenthesis 

7484-7522 format internal right parenthesis 

7523-7675 format H-specification 

7676-7905 format A-, L-, I-, F-, or E-specification 

7906-8003 format final right parenthesis 

8004-8024 File control word for logical file 1 

8025-8045 File control word for logical file 3 

This accounts for all external names appearing in the 
name map, recognizing that the main program name 
is the assumed value ///. 

The statement expansion area occupies 355 charac- 
ters, averaging approximately 35 characters per state- 
ment. This average includes the end statement, but 
excludes the dimension statement. Note that the for- 
mat expansion required considerably more than the 
average number of characters, whereas the arithmetic 
statement, sequence number 004, required less. 

The location and length of each statement expansion 
can be determined by adding the program base loading 
point to the relative addresses shown in the sequence 
number dictionary. The program base loading point for 
the first program that is loaded is 5700. Subsequent 
programs are loaded immediately following the first 
program. Consequently, their base loading points are 
higher than 5700. 
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Operating Procedures 



Jobs 

The Fortran system performs two major operations. 

1. Translates source programs into object programs. 

2. Starts the execution of object programs. 

Because these operations are performed by the Fortran 
processor part of the system, the operations are called 
processor jobs. 

Two otiier operations, maintaining the Fortran sub- 
program library and updating the Fortran system, are 
also considered jobs. Maintaining the Fortran subpro- 
gram library is called a library job. Updating the For- 
tran system is called an update job. Update jobs are 
described in Updating a Fortran System. 

Under control of the System Control Program, it is 
possible to perform one or more jobs without operator 
intervention. This process is called stack processing. If 
the system resides on disk, or if the system resides on 
tape unit 2, 3, 4, 5, or 6, a stack is always made up of 
the card-boot deck, a system asgn card, the particular 
job(s) to be performed, and a halt card. If the system 
resides on tape unit 1, a stack is made up of the par- 
ticular job(s) to be performed and a halt card. (Press- 
ing the tape load key serves the same function as the 
card boot and the system asgn card when the system 
tape is on unit 1.) 

In performing a job, the following factors must be 
taken into consideration. 

1. The kind of input for the job. 

2. The use of the logical files. 

3. The machine-operator procedures to be followed. 

The kinds of input for processor jobs and library jobs 
are discussed in the following sections (Preparing Proc- 
essor Jobs and Preparing Library Jobs). 

The general use of logical files is discussed in Logi- 
cal Files. 

In most cases, the user does not need to be con- 
cerned about the logical files because the Fortran sys- 
tem defines the files and assigns them to specific input/ 
output devices. In the description of preparing proc- 
essor jobs that follows, any file assignment that the user 
must make is explained. 

The machine-operator procedures to be followed are 
described in Performing Jobs. 



Preparing Processor Jobs 

This section describes each processor job. They are: 

FORTRAN RUN 
LOADER RUN 
PRODUCTION RUN 

Each processor job description includes: 

1. Assumed input device. This entry refers to the de- 
vice on which the input is assumed to be located. 
For the 1402, reader 1 means that the cards are 
selected into stacker 1. For the 1442, reader 1 
means unit 1. 

2. Input. This entry refers to the type of input for the 
job. 

3. Assumed output devices. This entry refers to the de- 
vice^) on which the output is assumed to be lo- 
cated. For the 1403, printer 2 means that 132 print 
positions are available. For the 1443, printer 2 
means that 144 print positions are available. For the 
1402, punch 4 means that the cards are selected into 
stacker 4. For the 1442, punch 1 means unit 1. 

4. Output. This entry refers to the type of output that 
the user always gets as a result of the job, unless 
specified otherwise. 

5. Output options available. This entry refers to the 
type of output the user can get by using output 
option cards. 

6. Required user assignments. This entry describes any 
additional logical file assignments that the user must 
make to perform the job. 

7. Control cards. This entry describes the method of 
punching any required control cards and output op- 
tion cards. 

8. Arrangement. This entry references a figure that 
shows the manner of arranging card input for the 
job. 



Notes. 

1. Any logical file assumed assignment can be changed. If the 
user wishes, he can change the assignment by using an 
asgn card. 

2. note and pause cards can be placed between, but not 
within, job decks. 
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FORTRAN RUN 

This is the type of run that translates a source program 
written in the Fortran language into an object program 
in the relocatable format. The output for this run is 
then ready for processing by the Fortran loader. 

Assumed Input Device, input file on reader 1. 

Input. Source program. 

Assumed Output Devices, message file on printer 2; 
list file on printer 2; loader file on 1311 or 1301 
unit 0, start 010400, end 012000 or tape unit 3. 

Output. 

1. Source-statement diagnostics on the list file, if 
errors are sensed. 

2. Source program listing on the list file, unless an 
output option control card specifies that the listing 
be omitted. 

3. Name dictionary on the list file, unless an output 
option control card specifies that the name diction- 
ary be omitted. 

4. Sequence number dictionary on the list file, un- 
less an output option control card specifies that the 
sequence number dictionary be omitted. 

5. Object program in the relocatable format on the 
loader file, unless the loader file has been omitted. 

Output Options Available. Object program in the re- 
locatable format on the output file. 

Required User Assignments. If the object program is 
to be written on the loader file, no file assignments 
are required. If the user wants the object program 
on the output file, an output asgn card is required. 

Control Cards. 

1. The run card is the only required control card. 
Punch the run card in the following manner. 



Columns 

6-12 
16-18 



Contents 

FORTRAN 
RUN 



2. If the object program is to be on the output file, 
an output asgn card is required. This card must pre- 
cede the run card. Generally, the only time that the 
user would want to use the output file is when a 
punched card deck in the relocatable format is de- 
sired. If this is the case, punch the output asgn card 
in the following manner: 



Columns 

6-11 
16-19 

21-27 



Contents 

OUTPUT 

ASGN 
PUNCH n 



If the output file is assigned to punch n, n can be 
0, 4, or 8 for 1402, 1 or 2 for 1442, 3 for 1444. 

If the output file is assigned, the user may wish 
to omit the loader file. If this be the case, a loader 
asgn card is required and must precede the run 
card. Punch the loader asgn card in the following 
manner. 



Columns 

6-11 
16-19 
21-24 



Contents 

LOADER 

ASGN 

OMIT 



3. The following cards are output option control 
cards and compiler option control cards. They are 
used when any of the options are desired. The op- 
tion cards immediately precede the Fortran source 
program in the input file and can be in any order. 
Option control cards are output on the list file. 

a. If the integer size is to differ from the assumed value of 5, 
punch the following card. Note: 01 < nn < 20. 



Columns 

1-8 
10-13 
15 
17-18 



Contents 

$INTEGER 
SIZE 



b. If the real size is to differ from the assumed value of 8, 
punch the following card. Note: 02 < nn < 20. 



Columns 


Contents 


1-5 


$REAL 


7-10 


SIZE 


12 


= 


14-15 


nn 



If the object machine differs from the assumed value of 
07999, punch the following card. 



Columns 


Contents 


1-7 


$OBJECT 


9-15 


MACHINE 


17-20 


SIZE 


22 


= 


24-28 


15999 



d. If the multiply/divide feature is not present in the ob- 
ject machine, punch the following card. (The multiply/ 
divide feature is assumed by the Fortran compiler to be 
available.) 



Columns 

1-3 

5-12 

14-19 



Contents 

$NO 

MULTIPLY 

DIVIDE 
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e. If the main program (phase)name differs from ///, 
punch the following card. Note: name is three alpha- 
meric characters in length. At least one character of the 
three alphameric character name must be alphabetic. If 
the program is to be stored as a phase on the system 
file, the arrangement of the three characters must be 
unique, i.e., the arrangement must differ from: 

1. Any phase name of the System Control Program 

2. Any phase name of the Fortran Processor Program 

3. Any phase name that the user previously may have 
added to the system file. 



END 



Columns 


Contents 


1-6 


$PHASE 


8-11 


NAME 


13 


= 


15-17 


name 



f. If no source program listing is desired, punch the fol- 
lowing card. 



Columns 


Contents 


1-3 


$NO 


5-8 


LIST 



g. If no name dictionary listing is desired, punch the fol- 
lowing card. 



Columns 


Contents 


1-3 

5-8 

10-19 


$NO 

NAME 
DICTIONARY 


h. If no sequence number 
the following card. 


dictionary is 


Columns 


Contents 


1-3 

5-12 

14-19 

21-30 


$NO 

SEQUENCE 

NUMBER 

DICTIONARY 



desired, punch 



i. If neither the name dictionary nor the sequence number 
dictionary is desired, punch the following card. 



Columns 


Contents 


1-3 


$NO 


5-14 


DICTIONARY 



Arrangement. The arrangement of input cards for a 
foetran run is shown in Figures 14 and 15. The out- 
put option cards must be in the input file and can be 
in any order. 

LOADER RUN 

This is the type of run that changes object programs in 
the relocatable format into object programs in the 
absolute format, establishing interprogram communica- 
tion and including required subprograms from the sub- 
program library. These object programs can be exe- 
cuted at the completion of the loader run, or at a later 
time, depending on the wishes of the user. 

Assumed Input Device, loader file on 1311 or 1301 
unit 0, start 010400, end 012000 or tape unit 3. 




/ __ 

rorTran oource oiaremenrs «»«««« 



5V:iAWJ::i:WSH:S;:;:-;:W:j 



'Option Cards (if required) 

,/fortran RUN 



'ASGN Cards 
(if required) 




Fortran Source Deck 



Figure 14. Fortran run with control and input Files As- 
signed to the Same Device 



Input. Object program(s) in the relocatable format. 

Assumed Output Devices, list file on printer 2, out- 
put file on punch 4 (1401 or 1460 systems) or punch 
1 (1440 systems). 

Output. 

1. Loader diagnostic messages on the list file, if 
errors are sensed. 

2. Name map on the list file, unless an output option 
control card specifies that the name map be omitted. 

Output Options Available. 

1. Storage print on the list file, if an output option 
card is included that specifies a storage print. 



/ Fortran Source 
Ik Deck 




Figure 15. Fortran run with control and input Files As- 
signed to Different Devices 
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2. Object program card deck in the absolute format 
on the output file, if an output option card is in- 
cluded that specifies an absolute deck. 



Additional Results. At the completion of a loader 
run, the program is ready for execution. 



Required User Assignments. If the object program in 
relocatable format is on the loader file, no user-as- 
signment is required. If the object program in relo- 
catable format is on any other file (input, workI- 
work6), an asgn card is required designating this 
file. In this case, an associated output option card is 
required. 



Control Cards. 

The first card of a loader run job must be the 
loader run control card which is punched in the 
following manner: 

Columns 



6-11 
16-18 



Contents 

LOADER 
RUN 



The last card of a loader run job must either be 
a $execution control card or a $no execution con- 
trol card. 

a. If execution is desired, punch the following card: 

Columns Contents 

1-10 $execution 

b. If execution is not desired, punch the following card: 

Columns Contents 



1-3 
5-13 



$NO 
EXECUTION 



Depending on the user's requirements, any or all 
of the following Loader control cards may be present 
between the loader run card and the $executton 
or $no execution card. They may appear in any 
order. 

a. The $include card is punched in the following manner: 
Columns Contents 



1-8 
16-18 

21-23 

or 
21-26 



$INCLUDE 

three-character 

file name 

three-character 

main program name 

or 

six-character 

subprogram name 



File Name 


Three 


-Ch< 


aracter File Name 


LOADER 






LDR 


MESSAGE 






MSG 


INPUT 






INP 


OUTPUT 






OUT 


LIST 






LST 


WORK1 






WK1 


WORK2 






WK2 


WORK3 






WK3 


WORK4 






WK4 


WORK5 






WK5 


WORK6 






WK6 



• Figure 16. Equivalence Between Logical File Names and 
Three-Character File Names 



This card causes the Fortran Loader to search the file 
specified in columns 16-18 for the relocatable main program 
specified in columns 21-23, or the relocatable subprogram 
specified in columns 21-26. When the relocatable program 
is found, it is loaded into core storage and the next control 
card is read. When columns 21-26 are blank, the entire file 
of relocatable programs is loaded. The valid file names which 
may appear in columns 16-18 are; ldr, inp, wkI, wk2, wk3, 
wk4, wk5, and wk6. The correspondence between the three- 
character file names and the actual file names is shown in 
Figure 16. 

b. If an absolute deck is desired, punch the following card. 
(Unless otherwise specified in columns 21-23, the deck 
will be on the output file.) 



Columns 

1-9 
11-14 
21-23 



Contents 
$absolute 

DECK 

three-character 
file name 



c. If a storage print is desired, punch the following card. 
(Unless otherwise specified in columns 21-23, the storage 
print will be on the list file.) 



Columns 

1-8 
10-14 
21-23 



Contents 
$storage 

PRINT 

three-character 
file name 



d. If no name map is desired, punch the following card: 
Columns Contents 



1-3 

5-8 

10-12 



$no 

NAME 
MAP 
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Figure 17. loader run with control and loader Files As- 
signed to the Same Device 



Arrangement. The arrangement of input cards for a 
loader run is shown in Figures 17 and 18. The out- 
put option cards must be in the control file and can 
be in any order. 



Note: If execution is to follow immediately after the 
loader run, indicated by a $execution card, the user must 
make sure that any Fortran numerical files referenced in the 
program have been assigned to the correct input/output 
devices. If asgn cards are required to change file assign- 
ments, the cards precede the loader run card. Further, the 
user must make sure that the files referenced during a 
loader run do not conflict with files referenced in the object 
program. 



ANO EXECUTION 




ASGN Cards 
(if required) 




Fortran Loader Operation 

The Fortran loader is called by the System Control 
Program when the loader run card is read from the 
control file. All cards after the loader run card (up 
to and including the $execution or $no execution 
card) on the control file are read by the Fortran 
loader. Relocatable programs may be loaded through 
the use of $include cards as previously described. In 
addition, the entire loader file, which is developed by 
one or more Fortran runs, is loaded when the $execu- 
tion or $no execution card is read. The user should 
be aware that the loader file is not referenced if it 
has been referred to in a $include card in the same 
loader run, or if it has been omitted with an asgn card. 
The library file is always referenced and is the last 
file referenced in a loader run. Any subprograms, 
either supplied by ibm or entered on the library file 
by the user, which are needed by the main program 
and/or subprograms already loaded, are extracted from 
the library file. 

Following are three possible executions of the loader 
run job: 

1. If the user has written a main program and an 
associated subprogram and wishes to compile and 
execute them, the card deck sequence of Figure 19 
could be used. 

The two Fortran run jobs will place their re- 
spective relocatable decks on the loader file. Since 
there is no $include card, at loader run time the 
entire loader file will be loaded when the $execu- 
tion card is sensed. 



( $ EXECUTION 
{ $STORAGE PRINT 



( LOADER RUN 



END 



FORTRAN SOURCE 
STATEMENTS 

( FORTRAN RUN 



(^END 



FORTRAN SOURCE 
STATEMENTS 



f FORTRAN RUN 



Figure 18. loader run with control and loader Files As- 
signed to Different Devices 



FORTRAN I NIT 



/ 7 FORTRAN SOURCE DECK 

_►_/ (Sub 



jbprogram) 



//FORTRAN SOURCE DECK 
W / (Main Program) 



• Figure 19. Fortran runs followed by LOADER RUN 
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MAIN PROGRAM AAA 

or 

SUBPROGRAM AAA 



( FORTRAN RUN 



FORTRAN SOURCE DECK 



/FORTRAN I NIT 



Figure 20. 



Main Program with Subprogram in 
Relocatable Card Form 



If the user wishes to compile a Fortran program 
and then execute this program along with another 
program in relocatable card form, he may use the 
card deck sequence shown in Figure 20. One of the 
programs must be a main program and the other 
a subprogram. A program in the relocatable card 
form may be obtained from a Fortran run by assign- 
ing the output file to the card punch. 

The Fortran run will place a relocatable deck on 
the loader file. When the $include inp aaa card is 
read at loader run time, the Fortran loader loads 
program aaa from the input file. Since this example 
uses the assumed logical file assignments, the input 
file is on the same card reader as the control file. 
Therefore, the relocatable program aaa must im- 
mediately follow the $include card. 

When the $execution card is read, the loader 
file, containing the program just compiled, will be 
loaded. 

If the user wishes to load and execute one or more 
programs all of which are in the relocatable card 
form, he may use the card deck sequence shown in 
Figure 21. 

One of the three relocatable programs must be a 
main program, and the other two, subprograms. 

In this example, the control file, the input file, 
and the loader file are all assigned to the same card 
reader. When each $include card is read, the For- 
tran loader loads the specified relocatable deck from 
the loader file. When the $execution card is 
sensed, the Fortran loader will not reference the 
loader file again since it was referenced previously 
in a $include card. 



PRODUCTION RUN 

This is the type of run that executes an object program 
in the absolute format. In order to perform a produc- 
tion run, the object program must be in the system 
file, stored as a phase of the Fortran system. The 
method for placing the object program in the system 
file is described in the following section, Preparing 
User-Update Jobs. 

Assumed Input Device. For 1301, the system file is on 
unit 0. For 1311, and for tape, the unit is user- 
assigned. 

Input. Object program in the absolute format, stored 
as a phase of the Fortran system. 

Assumed Output Devices. Not applicable. 

Output. Not applicable. 

Required User Assignments. The unit(s) referenced by 
the source program. 

Control Cards. The required run card is punched in 
the following manner. 

Columns Contents 

6-15 PRODUCTION 

16-18 RUN 

21-23 three-character phase name 

The three-character phase name is the three-charac- 
ter name assigned to the program before it was 
compiled. It is the same three-character name that 
appeared in columns 21-23 of the first card of the 



DATA 



(^EXECUTION 



( $STORAGE PRINT 



RELOCATABLE 
I CARD DECK 
f$INCLUDE LDR AAA 



RELOCATABLE 
CARD DECK 



^INCLUDE LDR AAA 




/ 



RELOCATABLE 
CARD DECK 



Y$INCLUDE LDR CCC 
['LOADER RUN 



/LOADER ASGN 
READER 1 



FORTRAN INIT 



W 



RELOCATABLE 
CARD DECK BBB 



77 RELOCATABLE 
¥/ CARD DECK AAA 



w 



RELOCATABLE 
CARD DECK CCC 



• Figure 21. Main Program with Two Subprograms in 
Relocatable Card Form 
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Figure 22. production run with control and input (Equiv- 
alent to Fortran File 1) Files Assigned to the Same 
Device 



absolute deck that was used to insert the program as 
a phase on the system file. 

Arrangement. The arrangement of input cards for a 
production run is shown in Figures 22 and 23. 



Preparing User-Update Jobs 

In order to perform a production run job, it is neces- 
sary that the object program in the absolute format be 
present in the system file. This object program deck is 
output by a loader run, when specified by the user. 
Object programs can be inserted on or deleted from 
the system file according to the needs of the user. If 
the system resides on a disk unit, these user-inserted 
phases (object programs in the absolute format) reside 
within the file-protected limits of the system file. 

On a tape-oriented system, the workI file is used 
in conjunction with the system file when a user-update 
job is performed. After a new phase is inserted (or de- 
leted), the new system file is present on workI. If the 
library file followed the old system file, it is copied 
following the new system file on workI. According to 
the needs of the user, the workI file can be transferred 
back to the master tape by performing a system-tape 
copy job. See Duplicating the System Tape. Since a 
system-tape copy job copies from the system file to the 
workI file, the user must make sure that the system 
and workI file assignments used for the user-update 
job are interchanged for the system-tape copy job. (In- 
serting a pause card immediately after the user-update 
job and immediately preceding the system-tape copy 
job provides a temporary halt in the system that allows 
the user to interchange the two file assignments.) 

The tape user is advised that when performing an 
updat insert job, the phase after which the new phase 
is to be inserted must be present on the original system 
file. The order of insertions (or deletions) must be the 
same as on the system file. 



/PRODUCTION RUN aaa 



/ INPUT ASGN 



ASGN Cards 
(if required) 




Figure 23. production run with control and input (Equiv- 
alent to Fortran File 1) Files Assigned to Different 
Devices 



Assumed Input Device, control file on reader 1. 

Input. Object deck in the absolute format. This deck is 
obtained by selecting the absolute deck option in a 
loader run. 

Assumed Output Devices. Not applicable. 

Output. Not applicable. 

Required User Assignments. None. 

Control Cards. 

1. If a phase is to be inserted on the system file, the 
required updat control card is generated by the For- 
tran loader. It is the first card of the absolute deck 
when the user specifies that an absolute deck be 
punched as a result of a loader run. 

Note. If the system file resides on tape, the user must 
specify that the phase be inserted after a particular phase 
on the system file. In order that this be accomplished, punch 
the three-character phase name after which the phase is to 
be inserted in columns 21-23 of the updat control card, the 
first card of the absolute deck. (Columns 21-23 of the updat 
card punched by the loader contains the name of the phase 
that is to be inserted and must be changed.) 79F is the name 
of the last phase of the Fortran system. When deleting a 
phase and inserting another phase in its place, it is recom- 
mended that these two user-update jobs be performed in two 
separate stacks. 

2. If a phase is to be deleted from the system file, 
punch the following card. 



Columns 


Contents 


6-15 


[any user comments] 


16-20 


UPDAT 


21-23 


three-character phase name 


24 


comma 


25-30 


DELETE 
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Object Deck in 
Absolute Format 



/UPDAT aaa, INSERT 



Figure 24. User-Update Job 



In the control card, three-character phase name 
refers to the three-character main program name. 

Arrangement. The arrangement of input cards for a 
user-update job is shown in Figure 24. 

Note to Disk Users: Attempts to add a phase to the sys- 
tem may result in a halt (A-Address Reg.— 088) indicating 
that the phase has not been inserted due to a lack of space 
in the system area. The following message 'will be printed 
before the halt occurs: system area must be optimized 
before phase name can be inserted, press start to op- 
timize. Pressing start will cause the system area to be 
scanned for all unused sectors. If unused sectors are found 
(resulting from prior deletions), the system area will be re- 
arranged so that all unused sectors become available for 
phase insertion. Upon completion of this compression, an- 
other attempt will be made by the system to insert the phase. 
If the phase will not fit after compression, a hard halt will 
occur (A-Address Reg.— 099). The following message will be 
printed before the halt occurs : no room in system area for 
phase name-number more sectors required. Phases on the 
system that are no longer used may be deleted in order to 
make room for the phase to be inserted. A table containing 
the name and disk address of every phase in the system area 
is located in the file-protected area. A list of this table may 
be obtained by printing sectors 262583 through 262615 using 
a seek address of 002583 through 002615 (Load mode). 



Preparing Library Jobs 

Library jobs are associated with the maintenance of 
the Fortran library. The Fortran library is a mass- 
storage file that supports the Fortran loader. The file 
contains a library table (disk-resident systems only) 
and subprograms, such as standard Fortran functions 
and subroutines. 

The three standard library jobs are: 

1. Library build that enables the user to define a li- 
brary file. A library-build job, performed when a 
disk-resident Fortran system is built, defines a li- 
brary file on the same disk unit as the system file. 
The limits of this library file are 012000 through 
013899. Thus, the assumed assignment is 1311 or 
1301 unit 0, start 012000, end 013900. 

After the library-build job has been performed, 
the library file contains the library table. The li- 



brary table is thirty sectors in length. The user can 
enlarge the name table according to his needs. 

If the system is tape resident, the library can be 
built on the same tape unit with the system file, or 
on another tape unit, if specified by a library asgn 
card. As a result, the tape user need only be con- 
cerned with library changes and library listings. 

2. Library listing that enables the user to get a list of 
the library subprograms and/or the names of the 
subprograms that are in the library file. 

3. Library change that enables the user to modify the 
content of a library file. A library-change job, first 
performed when the disk-resident system is built, 
transfers the subprograms to the library file after 
the file has been defined. 

A library job begins with a library run card and 
terminates upon encountering the end card. Only four 
types of control cards can appear between the library 
run and the end card. They are build, list, inser, and 

DELET. 

At the completion of a library job (library run) on 
a disk-oriented system, three messages are printed on 
the list file. The messages are: 

END OF LIBRARY RUN 

LIBRARY ASSIGNED nnnnnn TO nnnnnn 

REMAINING SECTORS nnnnnn TO nnnnnn 

In the message, nnnnnn is a disk address. From these 
messages, the user is able to determine the size of the 
present library, and the number of sectors available 
for any additional subprograms that may be added. 

Any subprogram is stored in disk storage one card 
per sector in the move mode. As the input for a li- 
brary run must be in card form, the user can deter- 
mine whether a subprogram will fit in the library by 
merely counting the cards in the deck output from a 

FORTRAN RUN. 

If the library file is full and the user wants to add a 
new subprogram, one of two steps can be followed. 

1. The user can define and build a new library. 

2. The user can delete an existing subprogram from 
the library file and insert the new subprogram. 
This can be done if the new subprogram will occupy 
the same number or fewer sectors than the old sub- 
program. 

For tape-oriented systems, at the completion of a 
library run, the message, 

END OF LIBRARY RUN 
is printed on the list file. 
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Library Build 

Library-build jobs apply only to disk-resident systems. 
Each library-build job defines a library file that con- 
tains a name table 30 sectors in length. If a table of 
more (or less) than 30 sectors is required, specify the 
sector number desired in the control card. 

The control cards required for a library-build job 
are: 

1. A library asgn card is required if the assignment 
of the library file differs from that assumed by the 
System Control Program. Punch the asgn card in 
the following manner: 

Columns Contents 

6-12 LIBRARY 

16-19 ASGN 

21-57 1311 unit n, start nnnnnn, end nnnnnn 

or 
1301 unit n, start nnnnnn, end nnnnnn 

For disk, the value n indicates the number of the disk unit, 
and can be 0, 1, 2, 3, or 4; nnnnnn represents a disk ad- 
dress. The limits of the library must be supplied. 

2. Punch the required run card in the following man- 
ner: 

Columns Contents 

6-12 library 

16-18 run 

3. Punch the library-build card in the following man- 
ner: 

Columns Contents 

16-20 BUILD 

21-23 [nnn] 

The value nnn is used only when the name table is to differ 
from 030 sectors. 

4. The end card must be the last card of a library- 
build job. Punch the end card in the following man- 
ner: 

Columns Contents 

16-18 end 

The arrangement of control cards for a library build 
job is shown in Figure 25. The cards are read from the 
control file. 



Library Listing 

The user can request three types of library listings. 

1. A listing of the names or headers of all the subpro- 
grams in the Fortran library. 

2. A listing of the entries in a specific subprogram. 

3. A listing of the entries in every subprogram. 

The control cards required for a library-listing job are: 

1. A library asgn card is required if the assignment 
of the library file differs from that assumed by the 
System Control Program. See Library Build for the 
format of the asgn card. 

2. The required run card is punched in the following 



manner. 



Columns 

6-12 
16-18 



Contents 

LIBRARY 
RUN 



One of the following three cards are required for 
the library-listing job. The one that is selected de- 
pends upon the type of listing that is required. 

a. If a listing of the headers of all the tape subpro- 
grams is required, punch the following card. If a 
listing of the names and disk addresses of all the 
disk subprograms is required, punch the follow- 
ing card. The listing is output on the list file. 



Columns 


Contents 


16-19 


LIST 


21-27 


HEADERS 



b. If a listing of the entries in a specific subprogram 
is required, punch the following card. The listing 
is output on the list file. 



Columns 


Contents 


6-11 


name 


16-19 


LIST 



name is the six-character name of the specific subprogram 
entries that are required. 

c. If a listing of the entries in every subprogram is 
required, punch the following card. The listing is 
output on the list file. 



Columns 
16-19 



Contents 

LIST 



Figure 25. Library Build 
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4. The end card must be the last card of a library- 
listing job. Punch the end card in the following 
manner. 



Columns 
16-18 



Contents 

END 



END 



/LIST 



name LIST 



LIST HEADERS 



LIBRARY RUN 



/library ASGN 

(if required) 



/One card is required 



Figure 26. Library Listing 

The arrangement of control cards for a library-list- 
ing job is shown in Figure 26. The cards are read from 
the control file. 



Library Change 

Fortran subprograms, supplied by ibm or developed 
by the user, can be added, modified, or deleted. 

ibm provides a change deck whenever IBM-supplied 
standard subprograms should be modified. The change 
deck includes a library run card, inser and/or delet 
cards, an end card, and cards containing the changes 
to be made. 

Programs already in the library, if being replaced, 
should be deleted before new programs are inserted. 
In addition, all deletions should be performed before 
the first insertion. This becomes more significant from 
an efficiency standpoint as the number of programs 
being replaced increases. 

User-change cards must be in the relocatable for- 
mat, the result of processing by a Fortran run. In ad- 
dition to the change cards, the following control cards 
are required for a library change. 

1. A library asgn is required if the assignment of the 
library file differs from that assumed by the System 
Control Program. See Library Build for the format 
of the asgn card. 

2. The required run card is punched in the following 
manner. 



Columns 


Contents 


6-12 


LIBRARY 


16-18 


RUN 



3. If a subprogram is to be inserted, punch the follow- 
ing card. 

Columns Contents 



The inser card must immediately precede the re- 
locatable deck. Each card of a relocatable deck is 
identified in column 72. The first card of this deck 
must contain an "H" in column 72 and the last card 
must contain a "." in column 72. The insertion of 
the program begins after reading of the "H" card 
and terminates after reading of the "." card. Ter- 
mination of an insertion procedure by any other 
means, such as detecting the last card in the reader, 
must be avoided. Cards appearing between the first 
and the last card must have one of the characters 
"C", "K", "E", "R", or "O" in column 72. 

When the library file resides on disk, the new 
subprogram is inserted after the last subprogram in 
the library file. When the library file resides on 
tape, the new subprogram is inserted before the 
first subprogram. 

If a subprogram by the same name already exists 
in the library file, it is deleted before the new sub- 
program is inserted. 

When the system is tape-oriented, the workI file 
is used in conjunction with the library file only 
when the library is to be changed. Whenever a 
subprogram is inserted, replaced or deleted, the new 
library will appear on the workI file. The original 
library will not be changed. Perform a library-copy 
job to transfer the library from the workI file to 
the library file. See Library Copy. 

4. If a subprogram is to be deleted, punch the follow- 
ing card. 



Columns 
6-11 
16-20 



Contents 
name 

DELET 



name is the six-character name of the subprogram to be 
deleted. 



All delet cards must precede all inser cards. 
When the system is tape oriented, the workI file is 
used in conjunction with the library file when a 
subprogram is deleted. Perform a library-copy job 
to transfer the library from the workI file to the 
library file. See Library Copy. 

5. The end card must be the last card of a library- 
change job. Punch the end card in the following 
manner. 



6-11 
16-20 



name 

INSER 



Columns 
16-18 



Contents 

END 
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f^END 



Relocatable Subprograms 



r name llNot 
/name DELET 



^LIBRARY RUN 



LIBRARY ASGN 
(if required) 



It 



Required for I NSER 



f- One card is required 



• Figure 27. Library Change 

The arrangement of the control cards and the in- 
put for a library change is shown in Figure 27. The 
control cards and the input cards are read from the 
control file. 

If the input for a library- change job contains a 
card that is not recognized by the system, a halt oc- 
curs. The message 

CARD NOT RECOGNIZED-BYPASS-CONTINUE 
INSERTION 

is printed on the list file. In order to continue proc- 
essing, press START. 



r° 




/COPY 






/LIBRARY RUN 










/LIBRARY ASGN 






(if required) 











Figure 28. Library Copy 



3. The required copy card is punched in the following 
manner. 



Columns 
16-19 



Contents 

COPY 



4. The end card must be the last card of a library-copy 
job. Punch the end card in the following manner. 

Columns Contents 

16-18 END 

The arrangement of the control cards is shown in 
Figure 28. The cards are read from the control file. 



Library Copy 

The library-copy job is applicable only when the li- 
brary file resides on tape. This job is normally per- 
formed immediately after a library run. 

When a subprogram is inserted in place of a subpro- 
gram having the same name on the library file, or 
when a subprogram is deleted from the existing li- 
brary, the workI file is used in conjunction with the 
library file. At the completion of the insertion or dele- 
tion, the new or revised library is present on the workI 
file. l 

To transfer the library to the library file from 
workI, perform a library-copy job. 

The following cards are required for a library-copy 3. 
job. 

1. A library asgn card is required if the assignment of 
the library file differs from that assumed by the 
System Control Program. See Library Build for the 
format of the asgn card. 

2. The required run card is punched in the following 
manner. 



Changing File Assignments 

Each logical file defined by the Fortran system, with 
the exception of the system file, is assigned to a spe- 
cific input/output device by the System Control Pro- 
gram. One set of logical file assignments applies to 
compilation (fortran run). A second set of logical file 
assignments applies to execution (loader run and pro- 
duction run). These assignments can be temporarily 
changed by using asgn cards. 

Any assignment made by the user remains in effect 
until: 

1. An asgn card is sensed for the particular logical file, 
or 

2. An init (initialize System Control Program assign- 
ments) card is sensed, or 

A halt card is sensed, signifying the end of a stack. 



Columns 
6-12 
16-18 



Contents 

LIBRARY 
RUN 



Preparing ASGN Cards 

asgn cards enable the user to change file assignments 
for one or more jobs in a stack. The general format for 
an asgn card is: 

file-name ASGN \ OMIT / 

The file-name is the specific logical file; device is the 
input/output unit and/or area to which the logical file 
is assigned. 
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The assumed file assignments and asgn card formats 
relating to specific files are shown in Figure 29. Valid 
device entries are shown in Figure 30. 

asgn cards are coded in the Autocoder format. 
When coding asgn cards, the user must: 

1. Leave blanks between items in the operand field as 
shown in Figure 29. If, for example, the output file 
is to be assigned to disk area 004000 through 004799 
on 1301 unit 1, the user would code the asgn card 
for punching as shown in Figure 31. The end ad- 
dress that is coded is the address of the next avail- 
able sector, not the address of the last sector to be 
used. 

2. Left-justify entries in the label, operation, and op- 
erand fields, as shown in Figure 31. 

File Considerations 

SYSTEM File. If the system file resides on 1311, drive 
should be on-line because the System Control Pro- 
gram's assumed assignments are on drive 0. If drive 
is not on-line, the user must use asgn cards to 
change the assumed assignments for the library, 
loader, workI, work2, and work3 files. 

CONTROL and INPUT Files. If both the control 
and input files are assigned to a reader, the assign- 
ments must be identical. For example, if the system 
is a 1440 and the control file is assigned to reader 
1, the input file must also be assigned to reader 1. 

MESSAGE and LIST Files. If both the message and 
list files are assigned to a printer, the assignment 
must be identical. For example, if the system is a 
1401 and the message file is assigned to printer 2, 
the list file must also be assigned to printer 2. 

WORKI, WORK2, and WORK3 Disk Files. With disk 
systems, seek time is the most important factor af- 
fecting input/output operations. Therefore, it would 
be expedient for the user with a multi-unit system 
to distribute the Fortran files to all of the units, thus 
making a significant reduction in seek time. 

Because the workI, work2, and work3 files han- 
dle large amounts of data, inefficient use of the files 
results in an increase in Fortran time requirements. 
For the benefit of the single disk unit user, workI, 
work2, and work3 are handled in a special way. The 
special way is to assign them to the same area of the 
disk unit as shown in Figure 32. When this is done, 
the System Control Program "splits" each cylinder, 
causing workI to occupy the upper half of each cyl- 
inder and work2 to occupy the lower half of each 
cylinder. work3 initially occupies the upper half, 



then is effectively "flipped" back and forth as the 
compilation progresses. A programmed false cylin- 
der overflow is forced as each half cylinder is oper- 
ated upon and the next upper or lower cylinder is 
used. 

WORKI, WORK2, and WORK3 Tape Files. As with 
disk files, it would be to the user's advantage to 
distribute the work files to separate tape units. How- 
ever, if the system contains only the minimum num- 
ber of units, it is possible to assign workI and work3 
to the same unit, thus saving the fourth unit for 
other purposes, such as a loader file for batched 
output from the compiler. 

Use of Logical Files at Object-time. At object-time, 
the user is free to use any of the logical files for 
input/output operations except the system, con- 
trol, library, and loader files. In addition, the list 
file is used by the Fortran loader for diagnostic mes- 
sages and the list and output files are normally 
used for the output options that are specified by 
the user. Therefore, if the list file (Fortran numeri- 
cal file name 3) is used, it would normally be as- 
signed to the printer so as to be aware of diagnostics, 
should any occur. 

If the Fortran system resides on 1311 or 1301, tape 
input and/or output is permitted during object-time 
(loader run or production run). Care must be exer- 
cised that no logical file referenced by the disk 
loader be assigned to tape. 

Note. If a single ibm 1442 Card Read-Punch is being 
used for punch and read operations, the user is advised that 
if a punch operation follows a read operation, the last card 
that was read will be punched. 



Using ASGN Cards 

At the beginning of stack processing, the System Con- 
trol Program causes assumed assignments from the 
system file to become effective. Each assumed assign- 
ment remains in effect until an asgn card for that file 
is sensed. Any changed file assignment remains in ef- 
fect until the next asgn card for that file, or until an 
init card, or until a halt card is sensed. (An init card 
causes all assumed assignments to become effective.) 

If a file-assignment change is applicable for an en- 
tire stack, place the asgn card immediately ahead of 
the first run card. 

If a file-assignment change is applicable only to a 
specific job, place the asgn card immediately ahead of 
the run card for that job. To change the single file 
assignment back to the assumed assignment or to a 
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ASGN Card Formats 


Assumed Assignment 


Remarks 


Label Field 


Operation 


Operand Field (Columns 21- 


72) 


Compilation 


Execution 




(Columns 


Field 






(FORTRAN RUN) 


(LOADER RUN or PRODUCTION RUN) 




6-15) 


(Columns 
16-20) 
















(l311 UNITn ) 
i 1301 UNITO > 
(TAPE UNITn ) 




131 1 unit: user-assigned 


1311 unit: user-assigned 


If the system residence is 131 1 or 1301, 


SYSTEM 


ASGN 




1301 unit: must be assigned to UNIT 


1301 unit: must be assigned to UNIT 


the SYSTEM ASGN card is the only re- 








Tape unit: user-assigned 


Tape unit: user-assigned 


quired ASGN card. It must follow the 














Card Boot in a stack of jobs . Any 














other SYSTEM ASGN cards in the 














stack are flagged and bypassed. If 














the user desires that the Fortran system 














use less than the number of core 














storage positions available in the pro- 














cessor machine, punch a comma in 














column 32,and 12K or 16K beginning 














in column 34. If the system residence 














is tape and the tape unit is 1, neither 














the Card Boot nor the SYSTEM ASGN 














card is required. (Pressing the TAPE 














LOAD key achieves the same purpose as 














the Card Boot and the SYSTEM ASGN 














card.) If the unit is 2, 3, 4, 5, or 6, 














both the Card Boot and the SYSTEM 














ASGN card are required to start 














systems operations. 


CONTROL 


ASGN 


( READER n 1 
(CONSOLE PRINTER/" 




READER 1 


READER 1 


If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader . 


MESSAGE 


ASGN 


(PRINTERn ) 
I CONSOLE PRINTER/ 




PRINTER 2 


PRINTER 2 


When the MESSAGE file is assigned to 












the CONSOLE PRINTER, carriage 














control characters used with the 1403 or 














1 443 printer may appear in the message . 














If the MESSAGE file and the LIST file 














are assigned to the printer, the assign- 














ment must be to the same printer. The 














MESSAGE file is equivalent to Fortran 














fileO. 






( PRI NTER n 


J 


PRINTER 2 


PRINTER 2 


If the LIST file and the MESSAGE file 






\l311 UNITn, START nnnnnn 


, END nnnnnn f 






are assigned to the printer, the assign- 


LIST 


ASGN 


< 1301 UNITn, START nnnnnn 
iTAPE UNITn 
f OMIT 


, END nnnnnn ^ 






ment must be to the same printer. The 
LIST file is equivalent to Fortran 
file 3. 






i READER n 

11 311 UNITn, START nnnnnn 


/ 






If the INPUT file and the CONTROL 


INPUT 


ASGN 


, END nnnnnn \ 


READER 1 


READER 1 


file are assigned to the reader, the 






1 1301 UNIT n, START nnnnnn 


, END nnnnnn I 






assignment must be to the same reader. 






' TAPE UNIT n 








The INPUT file is equivalent to 
Fortran file 1 . 






( PUNCH n 


\ 












\l3II UNITn, START nnnnnn 


, END nnnnnn 1 




PUNCH 4 (1401 and 1460 systems) 


The OUTPUT file is equivalent to 


OUTPUT 


ASGN 


{ 1301 UNITn, START nnnnnn 
J TAPE UNITn 

(omit 


, END nnnnnn \ 


OMIT 


PUNCH 1 (1440 systems) 


Fortran file 2. 






C 1311 UNITn, START nnnnnn 


, END nnnnnn J 


1311 UNITO, START 012000, END 013900 


1311 UNITO, START 012000, END 013900 


1311 is assumed if the SYSTEM file 


LIBRARY 


ASGN 


< 1301 UNITn, START nnnnnn 


, END nnnnnn > 


1301 UNITO, START 012000, END 013900 


1301 UNITO, START 012000, END 013900 


is assigned to 131 1 . 1301 is assumed 






(TAPE UNITn 


) 


TAPE UNIT 1 


TAPE UNIT 1 


if the SYSTEM file is assigned to 1301 . 
Tape is assumed if the SYSTEM file 
is assigned to tape. 






(1311 UNITn, START nnnnnn 


, END nnnnnn \ 










11301 UNITn, START nnnnnn 


, END nnnnnn / 


1311 UNITO, START 010400, END 012000 


1311 UNITO, START 010400, END 012000 


At execution time (LOADER RUN), 


LOADER 


ASGN 


{TAPE UNITn 


\ 


1301 UNIT 0, START 010400, END 012000 


1301 UNIT 0, START 010400, END 012000 


the LOADER file can be assigned to 






1 READER n 


I 


TAPE UNIT 3 


TAPE UNIT 3 


READER n. 






(omit 


) 






If the MESSAGE, LIST, andWORK5 














files are assigned to a printer, the 






U311 UNITn, START nnnnnn 


, END nnnnnn i 


1311 UNIT 0, START 007200, END 010400 


1311 UNIT 0, START 007200, END 007800 


assignment must be to the same printer. 


WORK1 


ASGN 


< 1301 UNITn, START nnnnnn 


, END nnnnnn > 


1301 UNIT 0, START 007200, END 010400 


1301 UNIT 0, START 007200, END 007800 


The WORK1 file is equivalent to 






(TAPE UNITn 


) 


TAPE UNIT 4 


TAPE UNIT 4 


Fortran file 4. 

The WORK2 file is equivalent to 






{ 


*i 










U3I1 UNITn, START nnnnnn 


, END nnnnnn ( 


1311 UNIT 0, START 007200, END 010400 


1311 UNITO, START 007800, END 008400 


Fortran file 5. 


WORK2 


ASGN 


< 1301 UNITn, START nnnnnn 
(TAPE UNITn 


, END nnnnnn t 


1301 UNIT 0, START 007200, END 010400 
TAPE UNIT 5 


1301 UNIT 0, START 007800, END 008400 
TAPE UNIT 5 


The WORK3 file is equivalent to 
Fortran file 6. 






/ 








The WORK4 file is equivalent to 






I 1311 UNIT n, START nnnnnn 


END nnnnnn j 


1311 UNITO, START 007200, END 010400 


1311 UNIT 0, START 008400, END 008900 


Fortran file 7. 


WORK3 


ASGN 


< 1301 UNITn, START nnnnnn 


, END nnnnnn } 


1301 UNIT 0, START 007200, END 010400 


1301 UNIT 0, START 008400, END 008900 


The WORK5 file is equivalent to 






(TAPE UNITn 


) 


TAPE UNIT 4 


TAPE UNIT 6 


Fortran file 8. 

The WORK6 file is equivalent to 


















I 1311 UNITn, START nnnnnn 
11301 UNITn, START nnnnnn 


, END nnnnnn J 




1311 UNITO, START 008900, END 009400 


Fortran file 9. 


WORK4 


ASGN 


END nnnnnn ' 


OMIT 


1301 UNIT 0, START 008900, END 009400 








ITAPE UNITn 
(OMIT 


\ 




OMIT for tape systems 


















(1311 UNITn, START nnnnnn 


END nnnnnn "j 




131 1 UNIT 0, START 009400, END 009900 






1 1 301 UNITn, START nnnnnn 


END nnnnnn f 




1301 UNIT 0, START 009400, END 009900 




WORK5 


ASGN 


{TAPE UNITn 
1 PRINTERn 

(omit 


~\ 


OMIT 


OMIT for tape systems 








1 1311 UNITn, START nnnnnn 
) 1301 UNIT n, START nnnnnn 


END nnnnnn ) 




1311 UNITO, START 009900, END010400 


WORK6 


ASGN 


END nnnnnn ( 


OMIT 


1301 UNITO, START 009900, END 010400 








) TAPE UNITn 
(OMIT 


( 




OMIT for tape systems 








i 









• Figure 29. asgn Card Formats and Assumed Assignments 
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Device Entry and Values of n and nnnnnn 


Remarks 


< „ m >UNIT n, START nnnnnn, END nnnnnn 

_n_ is the number of the disk unit, and can be 0, 1, 

2, 3, or 4. 

nnnnnn is a disk address. 


The END address is the address of the next available sector. 
The values of nnnnnn must adhere to the following rules: 

1. WORK1 and WORK2 files. If the disk unit is a 131 1, the START 
address must be a multiple of 200. If the disk unit is a 1301, the 
START address must be a multiple of 800. The END address (131 1 and 
1 301 ) must be a multiple of 40. 

2. WORK3, WORK4, WORK5, and WORK6 files. The START address 
(1311 and 1301) must be a multiple of 100. The END address of each 
file must be a multiple of 10. In addition, WORK3 must be at least 
300 sectors long. 

3. LIBRARY File. For both 1311 and 1301, the START and END addresses 
must be multiples of 20. 

If these rules are violated, the system automatically narrows in the disk 
area to an area that does adhere to these rules. 


TAPE UNIT n 

n_ is the number of the tape unit, and can be 1 , 2, 

3, 4, 5, or 6. 




READER n 

For 1402, n can be 0, 1 , or 2. 

For 1442, jn can be 1 or 2. 


For 1402, n represents the pocket into which the cards are stacked. For 
1442 or 1444, n represents the number of the unit. 


PUNCH n 

For 1402, in can be 0, 4, or 8. 
For 1442, n can be 1 or 2. 
For 1444, n must be 3. 


PRINTERn 

r^ can be 1 or 2. 


n represents the number of print positions available on the 1403 or 1443. 
For 1403, a 1 indicates 100 positions and a 2 indicates 132 positions. 
For 1443, a 1 indicates 120 positions and a 2 indicates 144 positions. 


CONSOLE PRINTER 


The console printer must be an IBM 1447 without a buffer feature. 


OMIT 


Select this option when the file is not to be used by the Fortran system. 
The LIST, OUTPUT, LOADER, WORK4, WORK5, and WORK6 files can 
be omitted. 



Figure 30. Valid Device Entries 



different assignment, place the asgn card immediately 
ahead of the run card for the next job that requires the 
effective file assignment to be changed. If all effective 
file assignments are to be changed back to the original 
assumptions of the system, place an init card after the 
last job that is to use the effective assignments. 

Example. Figure 33 is an illustration that shows the 
use of asgn cards. Assume that: 

1. The stack consists of compiling and executing Job 1. 



2. The stack is to be processed on an ibm 1401 system 
with ibm 1311 Disk Storage Drives. 

3. The system and library files are located on drive 0. 

4. Drive 1, drive 2, drive 3, and drive 4 are on-line. 

5. asgn card A specifies system asgn 1311 unit 0. A 
system asgn card is required for each stack of jobs 
when the system resides on a disk unit. 

6. asgn card B specifies workI asgn 1311 unit 1, start 
007200, end 010400. asgn card C specifies work2 
asgn 1311 unit 2, start 007200, end 010400. asgn 



Line 
3 5 


Label 

6 IS 


Operation 
16 20 


21 25 30 


OPERAND 

35 40 45 50 55 


60 


0,1, 


o,u,t,p,l/,t! , , , 


ASGN 


i.aai. unit .1.,. 


START .0.0.4.0.0.0. >. END. 4&00 




0,2 








0,3, 


• ~i_. i i i i i i i 


i i i i 


1 » » » * 1 1 >■ ' L. 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 i 1 ■ 



Figure 31. Coding for an output asgn Card 
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WORK3 




WORK1 



WORK2 




Figure 32. workI, work2, and work3 Assigned to the Same 
Disk Area 



card D specifies work3 asgn 1311 unit 3, start 
007200, end 010400. asgn card E specifies loader 
asgn 1311 unit 4, start 010400, end 012000. Assign- 
ing disk files to separate disk units can make a sub- 
stantial reduction in seek time. 

7. asgn card F specifies work5 asgn printer 2. work5 
is equivalent to the Fortran numerical file name 8, 
which is to contain the results from Job 1. 




Compilation 



Figure 33. Using asgn Cards 
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Performing Jobs 

Under control of the System Control Program, it is pos- 
sible to process one or more jobs without operator in- 
tervention. In order that this stack processing be ac- 
complished, each separate job must be called for by 
the necessary control cards. A list of the operations that 
can be performed in a stack follows. 

Logical File Assignments. Assign decks are made up of 
one or more asgn control cards specifying input/ 
output devices that differ from the effective devices 
of the System Control Program. With the exception 
of the system asgn card, logical-file asgn control 
cards can appear as frequently within the stack as 
the user wishes. If the system file resides on disk, or 
on any tape unit other than unit 1, the system asgn 
card appears once in a stack and immediately follows 
the card-boot deck. The user is reminded that no file 
assignment is reinstated to the original assumption 
unless specifically called for by an asgn card, or un- 
til an init card is sensed. 

When an init card is sensed, all logical file assign- 
ments revert to the assumed assignments of the Sys- 
tem Control Program. At this time, the loader file is 
initialized for a new Fortran run job. Thus, by us- 
ing an init card, the user can guarantee that his 
sequence of jobs will operate independently from 
any preceding jobs in the stack. 

Library Maintenance. The composition of a library 
deck depends upon the nature of the library job. 
However, a library run card and an end card are 
always required. 

System Updating. Update decks as supplied by ibm or 
the user are read by the System Control Program 
and must be available to the system on the device to 
which the control file is assigned. An update deck 
consists of one or more control cards, followed by 
any appropriate data cards. 

Processor Runs. Runs are dependent upon a run card 
and the input to the processors. If the input file is 
assigned to the same device as the control file, i.e., 
the card reader, each source deck must be placed 
behind its respective run control card. If the input 
to the processor or programs is written in disk stor- 
age or on magnetic tape, an input asgn card is re- 
quired designating the location of the source ma- 
terial. 

Communicating with the Operator, note control cards 
and pause control cards can appear anywhere in a 
stack between jobs. A halt card must be the last 
card of a stack. 



Preparing a Stack 

For a disk-resident system, the card-boot deck, a sys- 
tem asgn card, and a halt card are always required. 
For a tape-resident system, the card-boot deck and the 
system asgn card are optional; the halt card is re- 
quired. The formats of the system asgn and halt 
cards are shown in Appendix I. 

The input cards for a stack are arranged in this 
order. 

1. The 1402 or 1442 card-boot deck, which is optional 
if the tape-resident system is on unit 1. 

2. The system asgn card, which is optional if the tape- 
resident system is on unit 1. 

3. Job decks, to include assign card(s), library deck(s), 
update deck(s), and processor deck(s). Job decks 
can be in any order. 

4. The halt card. 

This stack is placed in the card reader, and is read by 
the System Control Program from the control file. 

Figure 34 shows a stack with control and input 
files assigned to the same device. 



Running a Stack 

To perform a stack run when the system resides 
1311: 



on 



1. Place the system pack on the disk drive referred to 
in the system asgn control card and ready the drive. 
(This card immediately follows the 1402 or 1442 
card-boot deck.) 

2. Ready all the input/output devices to which the sys- 
tem logical files and/or the devices to which the 
Fortran numerical files are assigned. These are the 
assumed devices of the System Control Program 
and/or the devices defined by the asgn cards. The 
assumed devices are: disk drive 0, the card reader, 
the card punch, and the printer. 

3. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch and disk-write switch 
on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 

4. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 
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Figure 34. Stack with control and input Files Assigned to the Same Device 
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5. When the system attempts to read the last card: 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the card 
reader. 

To perform a stack run when the system resides on 
1301: 

1. Ready all the input/output devices to which the sys- 
tem logical files and/or the devices to which the 
Fortran numerical files are assigned. These are the 
assumed devices of the System Control Program 
and/or the devices referred to in the asgn cards. 
The assumed devices are: disk unit 0, the card 
reader, the card punch, and the printer. 

2. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check- stop switch and disk-write switch 
on. 

c. Set the mode switch to bun. 

d. Press check beset and start reset. 

3. Load the program: 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press stabt on the reader, 
and pbogram load on the console. 

4. When the system attempts to read the last card: 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the card 
reader. 

To perform a stack run when the system resides on 
magnetic tape, and the card-boot deck and the system 
asgn card are not to be used. 

1. Mount the system tape on unit 1. 

2. Ready all the input/output devices to which the sys- 
tem logical files and/or the devices to which the 
Fortran numerical files are assigned. These are the 
assumed devices of the System Control Program 
and/or the devices defined by the asgn cards. The 
assumed devices are: tape units 1, 3, 4, and 5 (For- 
tran run) or tape units 1 and 3 (loader run) or 
tape units 4, 5, and 6 (production run), and the 
card reader, the card punch, and the printer. 

3. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 

4. Press tape load. 

5. When the system attempts to read the last card, 
press START. 



To perform a stack run when the system resides on 
magnetic tape, and the card boot and the system asgn 
card are to be used: 

1. Mount the system tape on the tape unit referred to 
in the system asgn control card, and ready the tape 
unit. (This card immediately follows the 1402 card- 
boot deck.) 

2. Ready all the input/output devices to which the sys- 
tem logical files and/or the devices to which the 
Fortran numerical files are assigned. These are the 
assumed devices of the System Control Program 
and/or the devices defined by the asgn cards. The 
assumed devices are: tape units 1, 3, 4, and 5 (For- 
tran run) or tape units 1 and 3 (loader run) or 
tape units 4, 5, and 6 (production run), and the 
card reader, the card punch, and the printer. 

3. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 

4. Press load. 

5. When the system attempts to read the last card, 
press start. 



Halts and Messages 

The halts and messages shown in Figure 35 can appear 
during a stack run. To display the halt numbers, press 
the A-address register key. Messages are printed on the 
message file. 

Conditions may arise that the system recognizes as 
being instrumental in causing a failure. In these in- 
stances, the system automatically calls in a storage- 
and file-print program and continues by accepting a 
new job. 

If the system is disk resident, the user can call in the 
storage- and file-print program by a manual branch to 
address 900. If the system is tape resident, the user can 
call in the storage- and file-print program by a manual 
branch to address 540. In both cases, a new stack can 
then be run. 

work files are printed out successively beginning 
with workI. If an end-of-file indicator (a tape mark for 
tape files or a lEOFb for disk files) is not present in a 
work file when the file-print program has control, the 
user can get a printout of the next work file by a man- 
ual branch to address 603 for disk-resident systems, or 
472 for tape-resident systems. 
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Half Number 
(A- Address 
Register 


MESSAGE and/or Meaning 


.Restart Procedure 


001 


WRONG SYSTEM. 

The message appears unconditionally on the printer. 


1 . Nonprocess run- out the cards in the reader. 

2. Correct the SYSTEM ASGN card, or 

3. Place the correct pack or tape on the unit indicated in 
the SYSTEM ASGN card. 

4. Restart the stack. 


002 


TEN RD TRIES PRESS STRT FOR 10 MORE. 
The message appears unconditionally on the printer. 
It indicates any disk error while attempting to read 
the system file. 


Press START for ten disk- read or tape- read retries. 


003 


SYSTEM ASGN NOT SENSED. 

The SYSTEM ASGN card did not immediately follow 

the card boot. 


1. Nonprocess run-out the cards in the reader. 

2. Place the SYSTEM ASGN card and the remainder of 
the stack in the read hopper. 

3. If the reader is 1402, press START. 

4. If the reader is 1442, press START on the reader and 
START on the console. 


004 


Parity check, wrong- length record, or no- address - 
compare error sensed 10 successive times during a 
disk or tape bootstrap operation. 


Press START for 10 disk- read or tape- read retries. 


005 


End- of- file sensed in SYSTEM file during disk or 
tape bootstrap operation. 


Nonprocess run-out the cards in the reader and restart 
the stack. 


006 


HALT card image. 

Indicates the end of the stack. 


Hard halt. 


007 


Card- punch error. 


1 . 1402 card punch and 1444 card punch: nonprocess 
run-out the cards in the punch. Discard the last 
three cards (two nonprocessed cards and the card in 
error) in the stacker. Press START. 

2. 1442 card punch: nonprocess run-out the cards in the 
punch. Discard the last two cards (the card in error 
and a blank card). Press START on the punch and 
START on the console. 


008 


Card- read error. 


1. 1402 card reader: nonprocess run-out the cards in the 
reader. Place the last three cards (two nonprocessed 
cards and the card in error) in the hopper. Press START. 

2. 1442 card reader: nonprocess run-out the cards in the 
reader. Place the two nonprocessed cards in the hopper. 
Press START on the reader and START on the console. 


009 


Printer error. 


1. 1403 printer: press START. 

2. 1443 printer: press START on the printer and START on 
the console. 



• Figure 35. Halts and Messages (Part 1) 
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Halt Number 
(A- Address 
Register 


MESSAGE and/or Meaning 


Restart Procedure 


010 


Non- blank card at the punch station in the 1442 
card read- punch . 


Nonprocess run-out the cards in the 1442. Place blank 
cards before the nonprocessed cards. Press START on the 
1442 and START on the console. 


Oil 


PAUSE card image. 


Press START. 


012 


Console- printer error. 


Press START for one retry of the read or write operation. 


013 


***ASGN card image. 

The halt indicates that the ASGN card is incorrectly 

punched. 


1 . 1402 card reader: the card in the stacker is the in- 
correct ASGN card. Correct the ASGN card. Non- 
process run-out the cards in the reader. Place the 
corrected ASGN card and the two nonprocessed cards 
in the hopper. Press START. 

2. 1442 card reader: nonprocess run-out the cards in the 
reader. The first nonprocessed card is the incorrect 
ASGN card. Correct the ASGN card. Place the 
corrected ASGN card and the second nonprocessed 
card in the hopper. Press START on the reader and 
START on the console. 

3. If the user wishes, he can ignore the two steps outlined 
above, and press START. The system will then use the 
effective device assignment for that particular file. 


030 


The object machine size has been assigned as 8K 
in the SYSTEM ASGN card. 


Change the object machine size declaration in the SYSTEM 
ASGN card to 12K or 16K. Use Card Boot to restart. 


031 


In attempting to execute a COPY option during a 
library run (tape system only), the new or revised 
library tape was not found on WORK1 file. 


Place library tape to be copied on tape unit assigned to 
WORK1 file. Press START. 


032 


In the tape system, when inserting a new subprogram 
in the library file, a card was found which could 
not be recognized. 

CARD NOT RECOGNIZED- BYPASS- CONTINUE 
INSERTION. REMOVE NECESSARY CARDS FROM 
READER. REPLACE REMAINING CHANGE CARDS 
AND END CARD. PRESS START. 


Nonprocess run-out cards in the reader. Remove cards 
as required. Press START. 


033 


In the tape system, when performing an UPDAT job, 
the phase name specified in the UPDAT card was 
not found on the SYSTEM file. 

phase name NOT FOUND 


Nonprocess run-out the cards in the reader. Remove cards 
as required. Pressing START will cause a return of control 
to the System Control Program. 


034 


In the tape system, when replacing a subprogram in 
the library file, a card was found which could not 
be recognized. CARD NOT RECOGNIZED- 
BYPASS- CONTINUE INSERTION. 


Nonprocess run-out the cards in the reader. Correct card 
and begin library run over from the beginning by pressing 
START. 



• Figure 35. Halts and Messages (Part 2) 
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Halt Number 
(A- Address 
Register) 


MESSAGE and/or Meaning 


Restart Procedure 


035 


All work files must be assigned to either a 1301 
or 1311. 


Change assignments and restart the stack with the Card 
Boot. 


040 


The logical file has been assigned to an area that 
overlaps a previously defined file label (1311 only). 


Hard halt. Change the assignment and restart the stack 
with the Card Boot. 


041 


An end -of- file condition was encountered while 
reading from the INPUT file. 


Restart the stack with the Card Boot. 


042 


An end -of- file condition was encountered while 
writing on the LIST file. 


Restart the stack with the Card Boot. 


043 


An end- of- file condition was encountered while 
writing on the LOADER file. 


Restart the stack with the Card Boot. 


044 


An end -of- file condition was encountered while 
writing on the OUTPUT file. 


Restart the stack with the Card Boot. 


045 


An end- of- file condition was encountered while 
writing on a work file. 


Restart the stack with the Card Boot. 


046 


An end -of- file condition was encountered while 
reading the library file (Disk system only). 


Restart the stack with the Card Boot. 


047 


An end -of- file condition was encountered while 
writing oh the file assigned for the name map. 


Restart the stack with the Card Boot. 


048 


An end- of- file condition was encountered while 
writing on the file assigned for the Storage Print 
option. 


Restart the stack with the Card Boot. 


049 


An end- of- file condition was encountered while 
writing on the file assigned for the Absolute Deck 
option. 


Restart the stack with the Card Boot. 


050 


When producing an absolute deck, the arithmetic 
interpreter was not found in the library. 


Rebuild the Fortran library before processing the remainder 
of the stacked input. 


062 


INVALID CONTROL CARD ASSUMED END OF 
LIBRARY RUN CORRECT AND RELOAD STACK 
PRESS START. 

Invalid control card appearing between LIBRARY 
RUN and END card. An END card condition will 
be simulated. 

CARD NOT RECOGNIZED ASSUMED END OF 
LIBRARY RUN CORRECT AND RELOAD STACK 
PRESS START. 

During an insertion, procedure, an invalid card was 
encountered before reading of the "." card. A 
"." card will be generated, and an END card con- 
dition will be submitted. 


Upon pressing START, control will return to SYSTEM 
CONTROL. The control file should be adjusted accord- 
ingly. 

Upon pressing START, control will return to SYSTEM 
CONTROL. The control file should be adjusted accord- 
ingly. 
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Halt Number 
(A- Address 
Register) 


MESSAGE and/or Meaning 


Restart Procedure 


066 


NOT INSERTED- -TABLE 
AREA EXHAUSTED 

USE BUILD OPTION TO INCREASE NO. OF 
SECTORS 

This message will be printed when performing an 
INSER option and the library name table area has 
been exhausted. 

NOT INSERTED-- LIBRARY 
AREA EXHAUSTED 

This message will be printed when performing an 
INSER option and the library file has been 
exhausted. 


Rebuild library before making any further library runs on 
this system. 

Rebuild library before making any further library runs on 
this system. 


088 


SYSTEM AREA MUST BE OPTIMIZED BEFORE PHASE 

name CAN BE INSERTED. 

PRESS START TO OPTIMIZE. (Disk users only) 

In attempting to add a phase to the system, the phase 
has not been inserted due to a lack of space in the 
system area. 


Press START to cause the system area to be scanned for all 
unused sectors. 


099 


NO ROOM IN SYSTEM AREA FOR PHASE name- 

number 

MORE SECTORS REQUIRED. (Disk users only) 

After compression of the system area, there is still 
not enough space for a phase insertion. 


Hard halt. 


168 


Phase not found in phase table while in supervisory 
call for phase (disk- resident systems only). 


A part of the system must be rebuilt. Use the parts of the 
system deck labeled CARD BUILD, SYSTEM CONTROL, 
and FORTRAN COMPILER- LOADER- LIBRARIAN. Follow 
the procedures as described in Building a Fortran System. 


371 


Tape transmission error. 


Press START for 10 tape- read or disk- write retries. 


500 


Disk not ready. 


Ready the disk unit and press START. 


629 


Parity check, wrong- length record, or no- address - 
compare error sensed 10 successive times during a 
disk- read or write operation. 


Press START for 10 disk- read or disk- write retries. 


900 


An END statement has been encountered during 
execution of user's program. 


Press START for printout of storage. Otherwise use Card 
Boot to restart. 


998 


Tape subroutine for disk. Thirty attempts have been 
made to write a tape record. 


Press START for another retry. 


999 


Tape subroutine for disk. Ten attempts have been 
made to read a tape record. 


Press START for another retry. 
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Halt Number 








(A- Address 


MESSAGE and/or Meaning 


Restart Procedure 




Register 










NOTE card image . 


If a message is printed and no halt occurs, the next 
card is processed. 


control 


* * * card image. 




All cards not recognized by the System Control 








Program are flagged (***), written on the MESSAGE 








file, and bypassed by the system. 






Card image 




INVALID UPDAT TYPE 








Update card with invalid update mode designated. 






END CARD OMITTED 


If this message is received, the library should be carefully 




ASSUMED END OF LIBRARY RUN 


examined. If the error occurred during an insertion 


pro- 




The last card has been detected in the reader either 


cedure, the library should be rebuilt. 






during an insertion procedure or when attempting to 








read a control card. 






END OF LIBRARY RUN 


Control is returned to SYSTEM CONTROL. 






LIBRARY ASSIGNED TO 








REMAINING SECTORS TO 








Printed at the completion of a library job. 






NOT FOUND IN LIBRARY 


The next library control card is read. 






Printed when performing a DELET or LIST option and 








the program was not found in the library. 






EXISTING LIBRARY DELETED 


A new library file will be defined and built. 






This message will be printed when rebuilding the 








library file. 






NO LIBRARY FOUND ON DISK 


The next library control card is read. 






This message will be printed when performing a 








LIST or DELET option and the library file has not 








been built. 






PHASE XXX ALREADY ON SYSTEM. WILL DROP 


If a message is printed and no halt occurs, the next 


control 




THIS SET OF CARDS 


card is processed. 




PHASE XXX NOT FOUND 


HEADER CARD ERROR 




All header cards for disk must have 24232 in columns 








1 through 5. 






All header cards for tape must have 24235 in columns 




1 through 5. 






Card image 




PHASE AREA EXCEEDED 






****PROCESSOR UNKNOWN**** 


IINP J 




ADDRESS nnnnnn 
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Halt Number 
(A- Address 
Register) 


MESSAGE and/or Meaning 


Restart Procedure 




ROUTINE IN LIBRARY- DELETED AND INSERTED 
A program will be inserted which previously existed 
in the library file. 




HEADER CARD MISSING-- BYPASS ROUTINE 
The first card read after the INSER card did not 
contain an "H" in column 72. 


All cards on the input file will be printed until the next 
library control card is read. 


ASSUMED BUILD OPTION 

This message will be printed when performing an 
INSER option and a library file has not been pre- 
viously defined. 




Halt Number 
(1- Address 
Register 


MESSAGE and/or Meaning 


Restart Procedure 


1042 


Tape system only. An end -of- file condition was 
encountered while writing on a work file. 


Restart the stack with the Card Boot. 


1124 


Disk system only. An end- of- file condition was 
encountered while writing on a work file. 


Restart the stack with the Card Boot. 


2728 


ERROR 


See Figure 13. 



Figure 35. Halts and Messages (Part 6) 



Building and Updating a 
Fortran System 



Tape Residence System, Deck Description 
And Preparation 

The tape supplied to the 1401 or 1460 user who wants 
a tape resident system contains a Fortran sample pro- 
gram, the card boot (used to start system operations), 
the Fortran system, a relocatable loader, and the For- 
tran Library. This tape is in card image form. These 
cards must first be punched from the tape, then used 
to create the tape resident system. 

The card deck which can be used to start system 
operations consists of 13 cards, and is called the card 
boot. The first 6 cards are the 1402 load cards. They 
are numbered consecutively 1 through 6 in column 80, 
and identified by a 0-4-8 punch (% symbol) in column 
79. The remainder of the cards are numbered con- 
secutively 000 through 007 in columns 73-75, and iden- 
tified by the code 51T02 punched in columns 76-80. 



Building a Fortran Tape Resident System 

The tape supplied to the 1401 or 1460 user is in card 
image form. Cards must first be punched from the 
tape, then used to build a tape resident system. 



Punch the cards from the tape in the following 
manner: 

1. Ready the card image tape on tape unit 1. 

2. Ready the card punch. 

3. Set the I/O Check Stop switch off. 

4. Press check reset, start reset, then tape load. 

A halt will occur and the following message will be 
printed on the printer. 

A HALT WILL OCCUR AT EACH DECK SEGMENT. 
MARK DECK AS PUNCHED, PRESS START TO CONTINUE. 

The following B-register halts are applicable: 



(B-register) 


Meaning 


120 


Printer error 


121 


Initial halt 


122 


Tape READ ERROR 


123 


Halt after each deck segment has been 




punched 


999 


End of Job halt 



Four separate decks of cards will be punched. The 
first deck of cards is the Fortran sample program. The 
second deck of cards is the card boot. The third deck 
of cards contains the System Control program, the 
Fortran compiler and the Fortran relocatable loader. 
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The last deck of cards punched is the Fortran library 
of subroutines. The Fortran library is separated from 
the remainder of the Fortran system deck to enable 
the user to insert a Library asgn card if he wishes the 
library to be placed on a tape separate from the system 
tape. 

Build the Fortran tape resident system as follows: 

1. Ready the tape that will become the System Tape 
on tape unit 4. 

2. Ready a work tape on tape unit 1. 

3. Place the deck marked System Control, Fortran 
compiler, Relocatable loader followed by the deck 
marked Fortran library in the card dreader. 

4. Set the I/O check stop switch off. 

5. Press start reset and check reset. 

6. Press load on the Card Read Punch. A short pro- 
gram is written on tape unit 1, a message eoj is 
printed and the system halts. 

7. Press start reset, tape load, and start. The For- 
tran system will now be written on tape unit 4. A 
message pause* ****change tape units*****, is 
printed. 

8. Change tape unit 1 to 0; then change tape unit 4 
tol. 

9. Press start reset, tape load, and start. The tape 
is read until the library portion is found, then the 
remaining cards are loaded on tape unit 1. 

10. Press start to read last card. A message, pause 
system tape completed, is printed. File protect 
the tape on tape unit 1 and create a copy to be 
used for Fortran compilations. (Refer to Dupli- 
cating the System Tape.) 

11. A halt with A-address register 519 during the 
building indicates a tape error. Press start for 
ten retries. 



Disk Resident System, Deck Description 
And Preparation 

The card deck supplied to the user who wants a disk 
resident system contains six sections as shown in Fig- 
ure 36. One section, marking program, is used to sepa- 
rate the sections for ease in labeling the various com- 
ponents of the complete deck. Three sections, write 
file-protected addresses, system control card build, and 
Fortran update are used to build the system. A fifth 
section, the card boot, is used to operate the system. A 
sixth section, sample program, is used to test the sys- 
tem built by the user. The individual sections are sepa- 
rated by the marking-program control cards. In the 
instances where more than one set of cards comprises 



a section, a marking-program control card separates 
the sets. 

To facilitate building and maintenance operations, 
mark the sections as indicated by the marking-program 
messages. 

All cards in the system deck, except the four 1402 
load-card sets and the four 1442 load-card sets, contain 
a sequence number in columns 73-75. The cards are 
numbered consecutively, beginning with 001. The first 
1,000 cards have no zone punches above the sequence 
numbers. The second 1,000 have a 12-punch in column 
75. The third 1,000 have a 12-punch in column 74. The 
fourth 1,000 have a 12-punch in column 73. The re- 
maining cards have an 11-punch in column 75. 

All load cards contain a sequence number in column 
80. The 1402 load cards are numbered consecutively 
from 1 through 6 in column 80 and are identified by a 
0-4-8 punch (% symbol) in column 79. The 1442 load 
cards are numbered consecutively from 1 through 7 in 
column 80 and are identified by a 3-8 punch (# sym- 
bol) in column 79. 

If it should be necessary to resequence the system 
deck, the user should sort the cards in the following 
manner: 

1. Sort on column 79 (0-4-8 punch) to select the 1402 
load cards. 

2. Sort the 1402 load cards on column 80 to sequence 
the cards. 

3. Assemble the four sets of 1402 load cards. 

4. Sort on column 79 (3-8 punch) to select the 1442 
load cards. 

5. Sort the 1442 load cards on column 80 to sequence 
the cards. 

6. Assemble the four sets of 1442 load cards. 

7. Sort the remaining cards into four groups corre- 
sponding to: 

a. No zone punch in any of the columns 73-75. 

b. 12-punch in column 75. 

c. 12-punch in column 74. 

d. 12-punch in column 73. 

e. 11-punch in column 75. 

Sort each of these groups on columns 75, 74, and 73. 

8. An appropriate set of load cards makes up the first 
six cards (1402) or seven cards (1442) of the marking 
programs, file-protect programs, card-build pro- 
grams, and card boots. Insert a 1402 or 1442 load 
card set preceding each of these programs accord- 
ing to the system (1401/1460 or 1440). 
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SAMPLE 
PROGRAM 



FORTRAN UPDATE 



SYSTEM CONTROL CARD BUILD 



Shaded Cards 
Represent Marking 
Program Control Cards 



Figure 36. Fortran System Program Deck 
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Marking Program 

The marking-program deck is made up of two sets. The 
set for the 1442 consists of 13 cards and, except for the 
load cards, has identification code 50ZY1 punched in 
columns 76-80. The set for the 1402 consists of 11 cards 
and, except for the load cards, has the identification 
code 50ZZ1 punched in columns 76-80. A blank card 
follows each set. 

The marking program separates the various sections 
and sets that make up the system deck. When a control 
card is sensed, a halt occurs and a message is printed. 

If the reader is 1442, the initial message is : 

HALT AT EACH DECK SEGMENT. DISCARD 
FIRST CARD, MARK DECK AS PRINTED, 
PRESS START TO CONTINUE. 

If the reader is 1402, the initial message is : 

HALT AT EACH DECK SEGMENT. MARK 
DECK AS PRINTED, PRESS START TO CON- 
TINUE. 

Subsequent messages contain the name of the sec- 
tion to be marked. 

To use the decks: 

1. Set sense switch A on. Set all other sense switches 
off. 

2. Set the I/O check stop switch off. 

3. Press check reset and start reset. 

4. Select the marking-program deck that is appropriate 
for the system and remove the other deck. 

5. Remove the blank card following the marking-pro- 
gram and place the program in the card reader, fol- 
lowed by the remainder of the Fortran system deck. 

6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. Halt 003 procedure. 

a. ibm 1402 Card Read-Punch: Press start. The 
marking program is in the NR stacker. 

b. ibm 1442 Card Reader: Remove the marking pro- 
gram from stacker 1 and press start on the con- 
sole. 

8. Halt 001 procedure. 

a. ibm 1402 Card Read-Punch: Remove the cards 
from stacker 1 and press start. Mark the deck 
section as indicated in the message. The marking- 
program control card is in the NR stacker. 

b. ibm 1442 Card Reader: Remove the cards from 
stacker 1 and press start on the console. Discard 
the first card (marking-program control card) and 
mark the section as indicated in the message. 



Note: The marking-program control cards are identified 
by ##### in columns 1-5. These cards are only for the 
use of the marking program and should be discarded after 
the deck is marked. 

9. When the system attempts to read the last card. 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 
The last card is a marking-program control card 
and should be discarded. 

The following halts can occur when using the mark- 
ing program. To display the halt number, press the 
A-address register key. 



Halt Number 
(A-Address Register) 

001 

002 
003 

008 



009 



Meaning 

The deck section in stacker 1 
should be marked. 

End of job. 

The initial message has been 
printed. 

Card-read error. To retry the op- 
eration: 

For the 1402: Nonprocess run-out 
the cards. Remove the last three 
cards in the stacker and place them 
in the hopper. Press start. 
For the 1442: Nonprocess run- 
out the cards. Place the two non- 
processed cards in the read hop- 
per. Press start on the reader and 
start on the console. 

Printer error. To retry the opera- 
tion, 

a. ibm 1403 Printer: Press start. 

b. ibm 1443 Printer: Press start 
on the printer and start on the 
console. 



Write File-Protected Addresses 

The write file-protected addresses section is punched 
in the Autocoder condensed-loader format. The deck 
consists of approximately 120 cards. 

The set of cards for the 1442 has, except for the load 
cards, the identification code 50FS1 punched in col- 
umns 76-80. The set of cards for the 1402 has, except 
for the load cards, the identification code 50FP1 
punched in columns 76-80. 

This section writes disk addresses whose values are 
equal to the normal addresses plus 260,000. It is by use 
of these false addresses that the file-protected area is 
created. 



System Control Card Build 

This section contains control cards and cards punched 
in the Autocoder condensed-loader format. It includes 
both the 1402 and the 1442 card-build programs and 
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the System Control Program. All necessary control 
cards are incorporated within the section, which con- 
sists of approximately 1000 cards. 

The card-build set for the 1442 has, except for the 
load cards, the identification code 50X41 punched in 
columns 76-80. The card-build set for the 1402 has, ex- 
cept for the load cards, the identification code 50X01 
punched in columns 76-80. 

The System Control Program section is identified by 
the code 50Sxl punched in columns 76-80, where x is 
alphameric. The section loads the System Control Pro- 
gram in disk storage. 



Card Boot 

The 1402 card-boot set, consisting of 17 cards, and the 
1442 card-boot set, consisting of 19 cards, are punched 
in the Autocoder condensed-loader format. The 1442 
card-boot set has, except for the load cards, the identi- 
fication code 50SZ1 punched in columns 76-80. The 
1402 card-boot set has, except for the load cards, the 
identification code 50PZ1 punched in columns 76-80. 

Because the card boot is required for each stack of 
jobs to be performed by the system, the card boot must 
be removed and saved for future system operations. 



Fortran Update 

The Fortran-update section is made up of the Fortran 
compiler-loader-librarian set and the Fortran standard 
subprograms set. 

The Fortran compiler-loader-librarian set is punched 
in the Autocoder condensed-loader format, Fortran re- 
locatable format, and the updat control card format. 
The set consists of approximately 3,000 cards and con- 
tains the phases of the Fortran compiler, the Fortran 
loader, and the library-build routine for the Fortran 
standard subprograms. The updat cards are identified 
by the code UPFIV punched in columns 76-80. The 
Fortran compiler, loader, and librarian phases are iden- 
tified by the code nnFIV punched in columns 76-80, 
where n is numeric. 

The function of the deck is to load the Fortran proc- 
essor phases on the disk unit, thus permitting a For- 
tran run or loader run, and to load librarian phases 
that control the building and maintaining of the For- 
tran library of standard and user-supplied subpro- 
grams. 

The Fortran standard subprograms set is punched 
in the Fortran relocatable card format and the library 
control card format, and contains approximately 1,000 
cards. The set has the identification code SSFIV 



punched in columns 76-80. This set places the Fortran 
standard subprograms on the library file. Fortran 
requires that these subprograms be present during a 

LOADER RUN. 

The last two cards of the set are a note card and 
a halt card which will cause the following comments 
to be printed on the message file: 

NOTE SYSTEM BUILD COMPLETE 
HALT PREPARE SAMPLE PROGRAM 
TO TEST SYSTEM 



Fortran Sample Program 

The Fortran Sample Program consists of approximately 
150 cards. The sample program for the 1442 has the 
identification code S2FIV punched in columns 76-80. 
The sample program for the 1402 has the identification 
code S1FIV punched in columns 76-80. This source 
deck, written in the Fortran language, is used to test 
the effectiveness of the system built by the user. 



Building A Fortran Disk Resident System 

After all sets of cards have been labeled and those sets 
of cards not applicable to the user's system have been 
removed, the user is ready to use the prepared system 
deck to build the Fortran system. 

Figure 37 is a block diagram showing the building 
of a disk-resident system. 

The system unit must be prepared for writing the 
complete system from cards. The user must clear disk 
unit in the move mode from 000000 to 000199, in the 
load mode from 000200 to 000259, in the move mode 
from 000260 to 000299, in the load mode from 000300 
to 007199, and in the move mode from 007200 to 
019979. The Clear Disk Storage Utility program ap- 
plicable to the user's system can be used for this opera- 
tion. As header labels are to be deleted, the write- 
address mode switch will initially be set off. 

Figure 38 shows the disk storage allocation on the 
system unit. 

The control cards for the utility program must be 
punched in the following manner. 

For 1311, 



Columns 


Contents 


1-15 


M00000000019900 


21-35 


L00020000025900 


41-55 


M00026000029900 


Columns 


Contents 


1-15 


L00O3000O7199O0 


21-35 


M00720001997900 
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1311 



Clear Disk 




For 1301, 



1301 



Write 

File-Protected 

Addresses 




Figure 37. Building a Fortran System 
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1311 




1301 
























System Control 
Card Build 














Prepare 

Fortran Update 

and 

Fortran Subprogram 














Update 
System 














Run 

Sample 

Program 





Columns 
1-15 
21-35 
41-55 

Columns 
1-15 
21-35 



Contents 
M000000000199+=H 
L000200000259=H+ 
M000260000299++ 

Contents 

L000300007199 

M007200019979 



The time required to clear the disk unit in the speci- 
fied modes is approximately five minutes. 

Write File-Protected Addresses 

The last card in the section labeled write file protect 
is a control card that is partially prepunched. It is by 
the use of this control card that the limits of the file- 
protected area reserved for the system file in the disk- 
storage unit are supplied. The user must indicate in 
the control card whether the system is to reside on a 
1301 or 1311 disk unit. For both the 1301 and 1311, the 
system must be built on unit 0. In the case of the 1311, 
the system pack can be used on any drive once the 
system has been built. The control card is punched as 
follows : 



Columns 


Contents 


1-15 


file-protect on (prepunched) 


17-20 


1301 or 1311 


22 


(prepunched) 


24-42 


from normal address (prepunched) 


44-49 


002500 (prepunched) 


51-52 


to (prepunched) 



54-59 



007200 (prepunched) 



After columns 17-20 have been punched by the user, 
the card must be replaced as the last card of the 
section. 

To use the section when the system is to reside on 
1311: 

1. Ready the pack on disk drive 0. 

2. Set the write-address mode switch on. 

3. Set the write-disk switch on. 

4. Set the I/O check stop switch on. 

5. Press check reset and start reset. 

6. Place the write file-protected addresses section in 
the card reader. 

7. Load the program. 

a. ihm 1402 Card Read-Punch: Press load. 

b. ihm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

8. When the system attempts to read the last card, 

a. ihm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 



File 


Mode 


File- Protected 


Sector Range 


SYSTEM File 








Not used 


Move 


No 


000000-000199 




Load 


No 


000200- 000259 




Move 


No 


000260-000299 




Load 


No 


000300-002499 


System Control Program 


Load 


Yes 


002500- 002904 


Fortran Processor Program 


Load 


Yes 


002905-002979 


Not used 


Load 


Yes 


002980- 002999 


System Control Program 


Load 


Yes 


003000-003175 


Fortran Processor Program } 
Area for User's Fortran Object Program Library j 


Load 


Yes 


003176-007199 


WORK Files 


Move 


No 


007200-010399 


LOADER File 


Move 


No 


010400-011999 


LIBRARY File 


Move 


No 


012000-013899 



Figure 38. Disk Storage Allocation 



9. At the end of the job, set the write-address mode 
switch off. 

To use the deck when the system is to reside on 1301 : 

1. Set the write-address mode switch on. 

2. Set the write-disk switch on. 

3. Set the I/O check stop switch on. 

4. Press check reset and start reset. 

5. Place the write file-protected addresses section in 
the card reader. 

6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

8. At the end of the job, set the write-address mode 
switch off. 

The time required to perform this job is approxi- 
mately 1 minute. The following halts can occur when 
writing file-protected addresses. 



Halt Number 
(A-Address Register) 

021 



Halt Number 
(A-Address Register) 

020 



Meaning 

Last card condition was sensed be- 
fore the control card. The control 
card containing the initial and ter- 
minal addresses of the area to be 
file-protected must be the last card 
of the deck. When the system is re- 
started by pressing start, a read 
operation is performed. 



022 



023 



024 



025 



026 



027 



Meaning 

An invalid disk type is specified in 
the control card. 1301 or 1311 are 
the only valid entries for columns 
17-20 of the control card. When 
the system is restarted by pressing 
start, a read operation is per- 
formed. 

An invalid disk unit is specified in 
the control card. The only valid 
entry for column 22 of the control 
card is 0. When the system is re- 
started by pressing start, a read 
operation is performed. 

An invalid start address (columns 
44-49) is specified in the control 
card. The start address must be 
002500. When the system is re- 
started by pressing start, a read 
operation is performed. 

An invalid end address (columns 
54-59) is specified in the control 
card. The end address must be 
007200. When the system is re- 
started by pressing start, a read 
operation is performed. 

Disk unit is not ready. When the 
system is restarted by pressing 
start, the disk I/O operation is 
retried. 

The area specified in the control 
card is already file-protected (all 
or in part). If the system is re- 
started by pressing start, the en- 
tire specified area will be file-pro- 
tected and cleared. 

The area specified in the control 
card has neither the "normal" disk 
addresses (000000-?) nor file-pro- 
tected addresses. This is a hard 
halt. 
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Halt Number 
(A-Address Register) 
028 



029 



030 



Meaning 

Parity check or wrong-length rec- 
ord error occurred on the disk unit 
while writing addresses. When the 
system is restarted by pressing 
start, the disk I/O operation is 
retried. 

Parity check or wrong-length rec- 
ord error occurred on the disk unit 
while determining the existing ad- 
dressing scheme. This is a hard 
halt. 

End of the job. 



System Control Card Build 

The last card in the section labeled card build is a con- 
trol card that is partially prepunched. It is by the use 
of this control card that disk residence is determined. 

The user must indicate in the control card whether 
the system is to reside on a 1301 or 1311 disk unit. The 
assumed disk unit number is 0. 

The control card is punched as follows: 
Columns Contents 



6-11 
16-20 
21-24 



system (prepunched) 
build (prepunched) 
1301 or 1311 



After columns 21-24 have been punched by the user, 
the card must be replaced as the last card of the card 
build deck. 

The system-control card build consists of the card 
sections labeled card build and system control. 

To use the system-control card build when the sys- 
tem is to reside on 1311: 

1. Ready the pack on disk drive 0. 

2. Set the write-address mode switch off. 

3. Set the write-disk switch on. 

4. Set the I/O check stop switch off. 

5. Press check reset and start reset. 

6. Place the system-control card build section in the 
card reader. 

7. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

8. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 



To use the system-control card build when the system 
is to reside on 1301: 

1. Set the write-disk switch on. 

2. Set write-address mode switch off. 

3. Set the I/O check stop switch off. 

4. Press check reset and start reset. 

5. Place the system-control card build section in the 
card reader. 

6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

The time required to perform this job is approximately 
5 minutes. The following halts can occur while using 
the system-control card build deck. 



Halt Number 
(A-Address Register) 

008 



Meaning 

Card-read error: 
eration: 



To retry the op- 



050 

051 
549 

554 



For the 1402: Nonprocess run-out 
the cards. Remove the last three 
cards in the stacker and place them 
in the hopper. Press start. 
For the 1442: Nonprocess run-out 
the cards. Place the two nonproc- 
essed cards in the read hopper. 
Press start on the reader and 
start on the console. 

The system build control card is 
missing from the deck or the user 
entry is incorrectly punched. 

End of job. 

Disk unit is not ready. When the 
system is restarted by pressing 
start, the disk I/O operation is 
retried. 

A disk-write error occurred ten 
times. When the system is restarted 
by pressing start, the disk I/O 
operation is retried. 



Fortran Update 

To build the Fortran processor, the Fortran update 
section, made up of the sets of cards labeled Fortran 
compiler-loader-librarian and Fortran standard 
subprograms are used. Input for this building process 
is as follows: 

1. ibm 1402 or 1442 card boot, followed by the 
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2. system asgn card, which must be punched by the 
user, followed by the 

3. Fortran update section, followed by the 

4. halt card, which is the last card of the standard 

SUBPROGRAMS. 

To build the system when it is to reside on 1311: 

1. Ready the pack on disk drive 0. 

2. Set the I/O check-stop switch off. 

3. Set the check-stop switch and disk-write switch on. 

4. Set the mode switch to run. 

5. Press check reset and start reset. 

6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

To build the system when it is to reside on 1301 : 

1. Set the I/O check-stop switch off. 

2. Set the check-stop switch and disk-write switch on. 

3. Set the mode switch to run. 



4. Press check reset and start reset. 

5. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

6. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. lbm 1442 Card Reader: Press start on the reader. 

The time required to perform this job is approximately 
20 to 30 minutes. The halts that can occur when using 
the Fortran update deck are shown in Figure 35. 

Fortran Sample Program 

The Fortran Sample Program is used to test the effec- 
tiveness of the system built by the user. A listing of the 
Sample Program is shown in Appendix IV. To prepare 
and run the Sample Program, see Preparing a Stack 
and Running a Stack. Figure 39 shows the input cards 
required to test the system by using the Sample Pro- 
gram. 

The Sample Program consists of five separate jobs. 
The first job is a Fortran run. As a result of this job, 
a source program listing, a name dictionary, and a se- 
quence number dictionary will be printed on the list 
file. Further, the object program in the relocatable for- 
mat will be present on the loader file. 



/ HALT 



l^UPDAT DELETE" 
^j^PAUSE 



^PRODUCTION RUN 



Absolute Deck 
^UPDAT INSERT 



^PAUSE 



r 7 SYSTEM ASGN 



( 1402 ) 
I 1442 J 



Card Boot 




f^Data 
^EXECUTION 



/END 



{ % STORAGE PRINT 
(^LOADER RUN 



Fortran Sour ce Statements 
^FORTRAN RUN 



■Supplied by the User 
■Supplied in Fortran Program Deck 



Figure 39. Fortran Sample Program 
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The second job is a loader run. As a result of this 
job, a storage print and a name map will be printed on 
the list file. Further, at the completion of processing, 
the object program will be executed. All necessary 
data cards are included. 

Following the completion of execution, a temporary 
halt will occur, and the message 

PAUSE PRESS START TO UPDATE SYSTEM 
WITH PHASE 

will be printed on the message file. When start is 
pressed, the third job will be performed. 

The third job is a user-update job. The punched- 
card object program (phase) in the absolute format is 
placed on the system file. This punched-card deck is 
identical to the punched-card deck that would have 
been produced if a loader-output-option control card 
($ absolute deck) had preceded the loader run that 
was previously performed. 

The fourth job is a production run. As a result of 
this job, the phase stored on the system file is executed. 
The data cards supplied are identical to the data cards 
used in the loader run job. 

Following the completion of execution, a temporary 
halt will occur, and the message 

PAUSE PRESS START TO DELETE SAMPLE PROGRAM 
FROM SYSTEM 

will be printed on the message file. When start is 
pressed, the fifth job will be performed. 

The fifth job is a user-update. As a result of this 
job, the sample program (phase) is deleted from the 
system file. 



Updating a Fortran System 

System updating is accomplished by the use of pre- 
punched card decks supplied by ibm. All necessary 
control cards and data cards are included in the deck. 

An update job is performed as described in Prepar- 
ing a Stack and Running a Stack. 



Duplicating the System Tape 

To make a copy of the system file when it resiles on 
a tape unit, use the copy option of the System Control 
Program. The content of the system file, including the 
library file if it resides on the same unit, is read into 
workI. 

The required control cards for duplicating the sys- 
tem tape are: 

1. The workI file must be assigned if it differs from 
the assumed assignment (tape unit 4) of the System 
Control Program. Punch the workI asgn card in 
the following manner. 



Columns 


Contents 


6-10 


workI 


16-19 


ASGN 


21-31 


TAPE UNIT n 



The n represents the number of the tape unit, and 
can be 1, 2, 3, 4, 5, or 6. 

2. The required copy control card is punched in the 
following manner. 

Columns Contents 
16-19 copy 

For a system-tape copy job, the asgn card (if required) 
precedes the copy card. 
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Appendix I 



This section contains a summary of the processor jobs 
and a summary of the formats of all control cards that 
are recognized by the System Control Program. Also 
included are the compiler option control cards and 
output option control cards. 

Each control card recognized by the System Control 
Program is punched in the Autocoder format, i.e., the 
label field is in columns 6-15, the operation field is in 
columns 16-20, and the operand field is in columns 
21-72. The user is again reminded that blanks must ap- 
pear in columns 21-72 where indicated in the indi- 
vidual formats. Further, entries in the label, operation, 
and operand fields must be left-justified in the respec- 
tive fields. 

Each entry in compiler option control cards and out- 
put option control cards begins in column 1. Blanks 
must appear where indicated in the individual formats. 

Figure 40 shows a summary of a normal Fortran 
run job. 



Figure 41 shows a summary of a normal loader run 
job. 

Figure 42 shows a summary of a normal user-update 
job. 

Figure 43 shows a summary of a normal production 
run job. 

Figure 44, shows the formats of asgn cards and the 
assumed assignments for the logical files. Figure 45 
shows the valid device entries for the asgn cards. 

Figure 46 shows the formats of the remaining con- 
trol cards recognized by the System Control Program. 

Figure 47 shows the formats of the compiler option 
control cards, the compiler output option control cards, 
and the loader output option control cards. 

Note: Update cards supplied by ibm are prepunched, and 
are included in card decks used for updating the user's system. 



Input 


Source program statements on the INPUT file 


Output 


1. Messages to the machine operator on the MESSAGE file. 

2. Source - statement diagnostics on the LIST file. 

3. Source program listing on the LIST file. 

4. Name dictionary on the LIST file. 

5. Sequence number dictionary on the LIST file. 

6. Object program in the relocatable format on the LOADER file. 


Optional Output 


Object program in the relocatable format on the OUTPUT file. To get this option, use an 
OUTPUT ASGN card. 


Required User 
Assignments 


None 


Required System 
Control Program 
Control Card 


FORTRAN RUN 


Compiler Option 
Control Cards 


$INTEGERSIZE = nn 

$REAL SIZE = nn 

$OBJECT MACHINE SIZE = nnnnn 

$NO MULTIPLY DIVIDE 

$ PHASE NAME = name 


Compiler Output 
Option Control 
Cards 


$NO LIST 

$NO NAME DICTIONARY 

$NO SEQUENCE NUMBER DICTIONARY 

$NO DICTIONARY 



Figure 40. Summary of a Normal Fortran run Job 



83 



input 


Object program in the relocatable format on the LOADER file 


Output 


1 . Messages to the machine operator on the MESSAGE file. 

2. Loader diagnostic messages on the LIST file. 

3. Name map on the LIST file. 


Optional Output 


1 . Storage print on the LIST file. 

2. Punched-card object program in the absolute format on the OUTPUT file. 


Required User 
Assignments 


None 


Required System 
Control Program 
Control Card 


LOADER RUN 


Required Loader 
Control Card 


$EXECUTION 
$NO EXECUTION 


Loader Output 
Option Control 
Cards 


SABSOLUTE DECK ["three-character file name] 
SSTORAGE PRINT ["three-character file name] 
$NO NAME MAP 



Figure 41. Summary of a Normal loader run Job 



Input 


Punched-card object program in the absolute format on the CONTROL file, or object program 
in the absolute format on the SYSTEM file. 


System Control 
Program Control 
Card 


r~user-comments~] UPDAT three -character phase name, INSERT 
[jjser comments] UPDAT three -character phase name, DELETE 



Note: When the UPDAT INSERT card is used in a tape system, three-character phase name 
is the name of the phase after which the new phase is to be added. 

Figure 42. Summary of a Normal User-Update Job 



Input 


Object program in the absolute format on the SYSTEM file 


Required User 
Assignments 


The unit(s) referenced by the object program 


Required System 
Control Program 
Control Card 


PRODUCTION RUN three -character phase name 



Figure 43. Summary of a Normal production run Job 
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ASGN Card Formats 


Assumed Assignment 


Remarks 


Label Field 


Operation 


Operand Field (Columns 21- 


72) 


Compilation 


Execution 




(Columns 


Field 






(FORTRAN RUN) 


(LOADER RUN or PRODUCTION RUN) 




6-15) 


(Columns 
16-20) 
















C 1 311 UNITn ) 




1311 unit: user-assigned 


1311 unit: user-assigned 


If the system residence is 1311 or 1301, 


SYSTEM 


ASGN 


\ 1301 UNITO > 




1301 unit: must be assigned to UNIT 


1301 unit: must be assigned to UNIT 


the SYSTEM ASGN card is the only re- 






(TAPE UNITn ) 




Tape unit: user-assigned 


Tape unit: user-assigned 


quired ASGN card. It must follow the 
Card Boot in a stack of jobs. Any 
other SYSTEM ASGN cards in the 
stack are flagged and bypassed . If 
the user desires that the Fortran system 
use less than the number of core 
storage positions available in the pro- 
cessor machine, punch a comma in 
column 32,and 12K or 16K beginning 
in column 34. If the system residence 
is tape and the tape unit is 1, neither 
the Card Boot nor the SYSTEM ASGN 
card is required. (Pressing the TAPE 
LOAD key achieves the same purpose as 
the Card Boot and the SYSTEM ASGN 
card.) If the unit is 2, 3, 4, 5, or 6, 
both the Card Boot and the SYSTEM 
ASGN card are required to start 
systems operations. 


CONTROL ■ 


ASGN 


I READER n 1 
I CONSOLE PRINTER J 




READER 1 


READER 1 


If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 


MESSAGE 


ASGN 


( PRINTER n ) 
(CONSOLE PRINTER/ 




PRINTER 2 


PRINTER 2 


When the MESSAGE file is assigned to 












the CONSOLE PRINTER, carriage 














control characters used with the 1403 or 














1443 printer may appear in tfie message. 














If the MESSAGE file and the LIST file 














are assigned to the printer, the assign- 














ment must be to the same printer. The 














MESSAGE file is equivalent to Fortran 














fileO. 






[ PRINTER n 


J 


PRINTER 2 


PRINTER 2 


If the LIST file and the MESSAGE file 






\ 1311 UNITn, START nnnnnn 


, END nnnnnn / 






are assigned to the printer, the assign- 


LIST 


ASGN 


< 1301 UNITn, START nnnnnn 
J TAPE UNITn 
f OMIT 


, END nnnnnn V 






ment must be to the same printer. The 
LIST file is equivalent to Fortran 
file 3. 






i READER n 

11 311 UNIT n, START nnnnnn 


) 






If the INPUT file and the CONTROL 


INPUT 


ASGN 


, END nnnnnn I 


READER 1 


READER 1 


file are assigned to the reader, the 






\ 1301 UNITn, START nnnnnn 


, END nnnnnn 1 






assignment must be to the same reader. 






' TAPE UNITn 








The INPUT file is equivalent to 
Fortran file 1 . 






I PUNCH n 


\ 












\ 1311 UNITn, START nnnnnn 


, END nnnnnn 1 




PUNCH 4 (1401 and 1460 systems) 


The OUTPUT file is equivalent to 


OUTPUT 


ASGN 


{1301 UNIT n, START nnnnnn 
JTAPE UNITn 

(omit 


, END nnnnnn \ 


OMIT 


PUNCH 1 (1440 systems) 


Fortran file 2. 






( 1311 UNITn, START nnnnnn 


, END nnnnnn J 


1311 UNITO, START 012000, END 013900 


1311 UNIT 0, START 012000, END 013900 


1311 is assumed if the SYSTEM file 


LIBRARY 


ASGN 


< 1301 UNITn, START nnnnnn 


, END nnnnnn > 


1301 UNIT 0, START 012000, END 013900 


1301 UNIT 0, START 012000, END 013900 


is assigned to 131 1 . 1301 is assumed 






(TAPE UNIT n 


) 


TAPE UNIT 1 


TAPE UNIT 1 


if the SYSTEM file is assigned to 1301 . 
Tape is assumed if the SYSTEM file 
is assigned to tape . 






[' 1311 UNITn, START nnnnnn 


, END nnnnnn \ 










\ 1301 UNITn, START nnnnnn 


, END nnnnnn / 


1311 UNITO, START 010400, END 012000 


131 1 UNIT 0, START 010400, END 012000 


At execution time (LOADER RUN), 


LOADER 


ASGN 


{TAPE UNITn 


\ 


1301 UNIT 0, START 010400, END 012000 


1301 UNIT 0, START 010400, END 012000 


the LOADER file can be assigned to 






JREADERn 


( 


TAPE UNIT 3 


TAPE UNIT 3 


READER n. 






(omit 


; 






If the MESSAGE, LIST, and WORK5 
files are assigned to a printer, the 






(l311 UNITn, START nnnnnn 
< 1301 UNITn, START nnnnnn 












, END nnnnnn ) 


1311 UNIT 0, START 007200, END 010400 


1311 UNIT 0, START 007200, END 007800 


assignment must be to the same printer. 


WORK1 


ASGN 


, END nnnnnn > 


1301 UNIT 0, START 007200, END 010400 


1301 UNIT 0, START 007200, END 007800 


TheWORKl file is equivalent to 






(TAPE UNITn 


) 


TAPE UNIT 4 


TAPE UNIT 4 


Fortran file 4. 














The WORK2 file is equivalent to 






U311 UNITn, START nnnnnn 


, END nnnnnn ( 


1311 UNIT 0, START 007200, END 010400 


1311 UNIT 0, START 007800, END 008400 


Fortran file 5. 


WORK2 


ASGN 


< 1301 UNITn, START nnnnnn 


, END nnnnnn \ 


1301 UNIT 0, START 007200, END 010400 


1301 UNIT 0, START 007800, END 008400 


The WORK3 file is equivalent to 






(TAPE UNITn 


) 


TAPE UNIT 5 


TAPE UNIT 5 


Fortran file 6. 

The WORK4 file is equivalent to 


















11311 UNITn, START nnnnnn 


, END nnnnnn ) 


1311 UNITO, START 007200, END 010400 


1311 UNIT 0, START 008400, END 008900 


Fortran file 7. 


WORK3 


ASGN 


< 1301 UNITn, START nnnnnn 


, END nnnnnn > 


1301 UNIT 0, START 007200, END 010400 


1301 UNIT 0, START 008400, END 008900 


The WORK5 file is equivalent to 






(TAPE UNITn 


) 


TAPE UNIT 4 


TAPE UNIT 6 


Fortran file 8. 

The WORK6 file is equivalent to 


















I 1311 UNITn, START nnnnnn 
11301 UNITn, START nnnnnn 


, END nnnnnn J 




1311 UNIT 0, START 008900, END 009400 


Fortran file 9. 


WORK4 


ASGN 


, END nnnnnn ' 


OMIT 


1301 UNIT 0, START 008900, END 009400 








JTAPE UNIT n 


\ 




OMIT for tape systems 








(OMIT 


1 












(l3U UNITn, START nnnnnn 


, END nnnnnn ) 




1311 UNIT 0, START 009400, END 009900 






\ 1301 UNIT n, START nnnnnn 


, END nnnnnn / 




1301 UNIT 0, START 009400, END 009900 




WORK5 


ASGN 


<TAPE UNITn 
/PRINTER n 
VOMIT 


J 


OMIT 


OMIT for tape systems 








I 1311 UNITn, START nnnnnn 


, END nnnnnn 1 




1311 UNITO, START 009900, END 010400 


WORK6 


ASGN 


11301 UNIT n, START nnnnnn 
JTAPE UNITn 


, END nnnnnn ( 


OMIT 


1301 UNIT 0, START 009900, END 010400 
OMIT for tape systems 








(OMIT 









Figure 44. asgn Card Formats and Assumed Assignments 
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Device Entry and Values of n and nnnnnn 


Remarks 


< ? UNIT n, START nnnnnn, END nnnnnn 

jt_ is the number of the disk unit, and can be 0, 1 , 

2, 3, or 4. 

nnnnnn is a disk address. 


The END address is the address of the next available sector. 
The values of nnnnnn must adhere to the following rules: 

1. WORK1 and WORK2 files. If the disk unit is a 131 1, the START 
address must be a multiple of 200. If the disk unit is a 1301 , the 
START address must be a multiple of 800. The END address (131 1 and 
1 301 ) must be a multiple of 40. 

2. WORK3, WORK4, WORK5, and WORK6 files. The START address 
(1311 and 1301) must be a multiple of 100. The END address of each 
file must be a multiple of 10. In addition, WORK3 must be at least 
300 sectors long . 

3. LIBRARY File. For both 1311 and 1301, the START and END addresses 
must be multiples of 20. 

If these rules are violated, the system automatically narrows in the disk 
area to an area that does adhere to these rules. 




TAPE UNIT n 

n_ is the number of the tape unit, and can be 1, 2, 

3, 4, 5, or 6. 




READER n 

For 1402, n_ can be 0, 1, or 2. 

For 1442, n^ can be 1 or 2. 


For 1402, n represents the pocket into which the cards are stacked. For 
1442 or 1444, n represents the number of the unit. 


PUNCH n 

For 1402, n_ can be 0, 4, or 8. 
For 1442, n can be 1 or 2. 
For 1444, ji must be 3. 


PRINTERn 

ji can be 1 or 2. 


n represents the number of print positions available on the 1403 or 1443. 
For 1403, a 1 indicates 100 positions and a 2 indicates 132 positions. 
For 1443, a 1 indicates 120 positions and a 2 indicates 144 positions. 


CONSOLE PRINTER 


The console printer must be an IBM 1447 without a buffer feature. 


OMIT 


Select this option when the file is not to be used by the Fortran system. 
The LIST, OUTPUT, LOADER, WORK4, WORK5, and WORK6 files can 
be omitted. 



• Figure 45. Valid Device Entries 
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Name of Card 


Label Field 
(Columns 6-15) 


Operation Field (Columns 16-20) 


Operand Field (Columns 2 1-72) 


Copy (Tape) 




COPY 


(Any message and/or identification] 


Halt 




HALT 


1 Any message and/or identification] 


Initialize 


FORTRAN 


INIT 


["Any message and/or comment] 


Note 




NOTE 


Any message and/or instruction 


Pause 




PAUSE 


Any message and/or instruction 


Run 


FORTRAN 


RUN 




LOADER 


RUN 




PRODUCTION 


RUN 


Three-character phase name 


LIBRARY 


RUN 




Update * 


[User comments] 


UPDAT 


Three-character phase name, INSERT 


User comments 


UPDAT 


Three-character phase name, DELETE 


Cards associated 

with ** 

LIBRARY RUN 

cards 

*** 

*** 
*** 

**** 


LIBRARY 


RUN 






BUILD 


nnn, where nnn specifies a name-table length that differs from 030. 




LIST 


HEADERS 


name 


LIST 






LIST 




name 


INSER 




name 


DELET 






COPY 






END 





* When the UPDAT INSERT card is used in a tape system, three-character phase name is the name of the phase after which the new phase is to be added. 

** This option applies only to libraries that reside on disk. 
*** name is the six-character name of a subprogram. 
**** This option applies only to libraries that reside on tape. 
Figure 46. System Control Cards 



87 



Type of Control Card 



Format - Columns 1 - ? 



Remarks 



Compiler option control cards 



$INTEGER SIZE = nn 



01^ nn ^20; assumed size is 05. 



$REALSIZE =nn 



02^ nn ^20; assumed size is 



$OBJECT MACHINE SIZE = nnnnn 



11999 ^ nnnnn ^ 15999; assumed size is 11999. 



$MULTIPLY DIVIDE 



Multiply/divide feature assumed to be present on 
object machine . 



$NO MULTIPLY DIVIDE 



$ PHASE NAME = name 



name is 3 alphameric characters; assumed name 
is /// . 



Compiler output option control cards 



$LIST 



Source program listing is assumed. 



$NO LIST 



$NAME DICTIONARY 



Name dictionary is assumed . 



$NO NAME DICTIONARY 



$SEQUENCE NUMBER DICTIONARY 



Sequence number dictionary is assumed. 



$NO SEQUENCE NUMBER DICTIONARY 



$DICTIONARY 



Both the name and sequence number dictionaries 
are assumed . 



$NO DICTIONARY 



Loader output option control cards 



$ABSOLUTE DECK ["three-character file name ~| 



No absolute deck is assumed. If an absolute deck 
is specified, OUTPUT file is assumed. 



$NO ABSOLUTE DECK 



$STORAGE PRINT [three-character file name ] 



$NO STORAGE PRINT 



No storage print is assumed . If a storage print is 
specified, LIST file is assumed. The storage print 
uses a print line of 120 positions. 



$NAME MAP [ three-character file name 



Name map is assumed output on the LIST file. 



$NO NAME MAP 



$INCLUDE LDR 



three-character main program name 



or six-character subprogram name 



$INCLUDE INP 



three-character main program name 
or six-character subprogram name 



1 



1^2^6 

The $INCLUDE card is punched as follows. 

Columns 



$INCLUDE WKi 



three-character main program name 
or six-character subprogram name | 



1-8 
16-18 
21-23 
or 
21-26 



Contents 

$INCLUDE 

LDR or INP or WK[ 

main program name 

or 

subprogram name 



$EXECUTION 



One of these cards must be supplied by the user as 
the last card of a LOADER RUN. 



$NO EXECUTION 



* When used, three-character file name appears in columns 21-23 of the Loader output option control card. 
Figure 47. Fortran Option Control Cards 
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Appendix II 



The name, identification, and function of each phase 
in the Fortran system are given in the following sec- 
tions. 



System Control Program — Disk Resident 

This section describes the phases that make up the 
System Control Program for disk-resident systems. 



Phase Name 
SYB 



FHW 
IOP 



suo 


50S31 \ 


SU1 


50S41 


SU2 


50S51 


SU3 


50S61 » 


SU4 


50S71 


SU5 


50S81 


SU6 


50S91 


OP1 


50SAl) 


OP2 


50SB1/ 



DET 



PIT 



ID Function 

50S01 1. Determines machine size. 

2. Initializes switches according 
to the type of reader, punch, 
and printer (serial or parallel). 

3. Reads in the I/O package. 

4. Calls the determiner. 

50S11 Contains the assumed assign- 

ments for the logical files. 

50S21 1. Reads or writes disk in the 

move or load mode. The mode 
depends on the processor 
operation. 

2. Determines whether the user 
has exceeded specified file 
limits. 

3. Branches to the processor 
phase, or branches to the 
end-of-file routine if the 
end-of-file has been sensed. 



Reads in the specified phase 
from disk storage and branches 
to the specified phase. 



Initializes the specified area with 
a twenty-character control word. 
This control word is obtained 
from the temporary file-hardware 
table. 

50SC1 Reads the control file until a 

control card (halt, pause, note, 

INIT, UPDAT, RUN, Or ASGN) is 

sensed. When a control card is 
sensed, the determiner causes a 
halt or pauses, prints out a note, 
calls the update determiner, calls 
the selector, or calls the con- 
figurator, depending upon the 
type of card. 

50SD1 Contains the locations of the 
phases in the system. 



ase Name 


ID 


Function 


CFG 


50SE1 


Updates the temporary file- 
hardware table as specified by 
the asgn card(s). 


SEL 


50SF1 


Initializes the files used by the 
processor being called, and 
calls the first phase of that 
processor. 



UPD 



UIN 



UHD 



UDL 



UPT 



DMP 
DM2 

F/P 

F/2 
F/3 

UPK 



MNE 

2XB 

4XB 

6XB 

8XB 



50SG1 



50SH1 



50SI1 



50SJ1 

50SK1 

50SL1 \ 
50SM1J 

50SN1 ) 
50SO1 J- 
50SP1 ) 

50SQ1 



AUMNE 

EX2XB 

EX4XB 

EX6XB 

EX8XB 



Determines the type of update 
operation being performed, and 
calls in that particular updater. 

Places a new phase on the 
system file in any available 
location. 

Updates the header of a phase 
that is in the system file, as 
specified by a header card. 

Deletes a phase from the 
system file. 

Patches a part of a phase on 
the system file. 

Prints storage on the list file. 

Prints all work files on the list 
file. 

Compresses phases within the 
system area so that all unused 
sectors are made available. 



These phases are used by the 
Autocoder Assembler Program. 



System Control Program — Tape Resident 

This section describes the phases that make up the Sys- 
tem Control Program for tape-resident systems. 



Phase Name 
SYB 



IOP 



ID Function 

50S01 1. Determines machine size. 

2. Initializes switches according 
to the type of reader, punch, 
and printer (serial or parallel). 

3. Reads in the I/O package. 

4. Calls the determiner. 

51T05 1. Contains the assumed assign- 
ments for the logical files. 
2. Reads or writes tape in the 
move or load mode. The mode 
depends on the processor 
operation. 
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Phase Name ID 



Function 



Phase Name ID 



Function 



DET 



51T06 



UPD 



50SH1 



DMP 
DM2 

F/P 



50SL1 
50SM1 



3. Branches to the processor 
phase, or branches to the 
end-of-file routine if the 
end-of-file has been sensed. 

4. Reads in the specified phase 
from the system tape and 
branches to the specified 
phase. 

5. Initializes the specified area 
with a twenty-character 
control word. This control 
word is obtained from 
assumed assignments for 
logical files. 

1. Reads the control file until a 
control card (halt, pause, 

COPY, NOTE, INIT, UPDAT, RUN, 

or asgn) is sensed. When a 
control card is sensed, the 
determiner causes a halt, or 
pauses, or prints out a note. 

2. Updates assumed file assign- 
ments as specified by the asgn 
card(s). 

3. Initializes the files used by the 
processor being called, and 
calls the first phase of that 
processor. 

4. Determines the type of update 
operation being performed, 
and calls the updater. 

1. Places a new phase on the 
system file in any available 
location. 

2. Updates the header of a 
phase that is in the system 
file, as specified by a header 
card. 

3. Deletes a phase from the 
system file. 

4. Patches a part of a phase on 
the system file. 



Prints storage on the list file. 



51T10 Prints all work files on the list 
file. 



Fortran Processor Program 

This section describes the phases that make up the 
Fortran Processor Program. 

Phase Name ID Function 

OOF OOFIV 1. Reads compiler option control 

cards, if any, from the input 
file and outputs them on the 
list file. 

2. Initializes deblocking routines 
(getex and putex). 



10F 



10FIV 



20F 



20FIV 



21F 



21FIV 



3. Sets up an area in upper core 
storage for getex and putex 
buffers. 

4. Passes the first source-program 
statement to phase 10F. 

1. Reads source statements from 
input file until the end card 
is sensed. 

2. Assigns sequence numbers to 
all source statements except 
comments statements. 

3. Outputs the source program 
listing on the list file, if the 
option is exercised. 

4. Replaces key words (common, 
dimension, go to, etc.) with 
internal three-character 
symbols. Replaces remaining 
portion of each statement with 
internal symbols. 

5. Replaces unrecognizable 
statements with diagnostic 
codes. 

6. Outputs nonexecutable and 
I/O name lists on work2 
and executable statements on 
workI. 

7. Calls phase 20F, 25F, or 30F, 
depending on type of source 
statements. 

1. Extracts dimension, common, 

EQUIVALENCE, FUNCTION, 

subroutine, external, and 
type statements from work2. 

2. Builds a name-attribute table 
in upper core storage. 

1. Uses name-attribute table 
built by phase 20F and allo- 
cates object-time storage for 
common variables and appli- 
cable equivalence definitions. 

2. Allocates storage for normal 
variables with equivalence or 
dimension definitions, and 
adds this information to the 
name-attribute table. No 
storage is allocated unless the 
complete set of variable 
attributes has been 
determined. 

3. Compresses the name- 
attribute table, deleting 
information no longer 
required. 

4. Outputs a macro reflecting 
ordering or various variable 
types within common on the 
putex file. 

5. Calls phase 25F, if required. 
Otherwise, phase 30F is called. 
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Phase Name 
25F 



30F 



33F 
34F 



35F 



ID Function 

25FIV 1. Extracts format, data, and 
define file statements and 
I/O name lists from work2. 

2. Replaces names in data or 
I/O name lists and source or 
generated constants from I/O 
name lists with object-time 
addresses. 

3. Generates sequence of macros 
with associated parameters on 
the putex file for each state- 
ment. An increased object-time 
character count is included 
with each sequence number 
or label assignment macro 
reflecting the total number of 
object-time characters since 
the last sequence number or 
label assignment macro. 

4. Begins label table for format 
statement numbers. 

5. Continues building name- 
attribute table and continues 
allocating storage as required. 

30FIV 1. Extracts executable statements 
from the getex file, which can 
contain macros from phase 
25F. 

2. Continues building name- 
attribute table and label 
table, with allocation accom- 
plished when required. An 
address is substituted for a 
name and an internal repre- 
sentation is substituted for a 
label. 

3. Generates macros with appro- 
priate parameters for all exe- 
cutable statements, except for 
expressions that are passed to 
phase 40F. Subscripted vari- 
ables are processed as in phase 
25F, generating macros even 
when they are part of an 
expression. The object-time 
incremental character count is 
included with sequence num- 
ber or label assignment 
macros. 

4. If source label and name table 
overflows, subsequent source 
labels and/or names are 
passed in expanded form for 
replacement by phase 34F. 

33FIV Processes subscripted variables. 

34FIV Phase 34F is an optional phase. 
When required, it completes the 
storage allocation for normal 
variables. It replaces names with 
addresses, and source labels with 
internal label notation. 

35FIV 1. Outputs a name dictionary on 
the list file, if requested. 



Phase Name ID 



36F 



36FIV 



40F 



40FIV 



45F 



45FIV 



53F 



53FIV 



Function 

2. Outputs constants as macros 
in the name table on the 
putex file. 

3. Allocates storage in upper core 
storage for a source label 
table and a generated label 
table which will eventually 
contain actual addresses. 

4. Calls phase 36F if compiling 
a subprogram. 

When a subprogram is being 
compiled, macros are generated 
on the putex file to represent the 
necessary processing when the 
subprogram is called. A "pro- 
logue" is generated; also, an 
"epilogue" is generated which 
represents any necessary resetting 
of values before returning control 
to the calling program. If 
variable dimensions have been 
used, a pass on the getex file is 
required when building the 
prologue name to indicate addi- 
tional object-time calculations. 

1. Extracts expressions from the 
getex file that were partially 
processed by phase 30F. The 
expressions are reordered ac- 
cording to implied operator 
precedence and parentheses, 
and macros are generated on 
the putex file. 

2. Extracts label assignments and 
sequence number macros 
from the getex file. For a 
sequence number, the incre- 
mental character count is 
replaced with an actual 
accumulative character count, 
and the macro is passed. 
Label assignment macros are 
not passed further. Actual 
addresses for source labels 
and generated labels are en- 
tered into the label table and 
generated label table. 

3. Passes control to phase 45F if 
a data statement is sensed. 

1. Extracts data name list 
macro sequences from the 
getex file. The macros are 
expanded into object code 
in a phase work area. The 
code references some included 
subroutines, data literal list 
macros are matched with 
object-time addresses and 
passed as regular literal 
macros. 

2. Continues label assignments 
and sequence number proc- 
essing as in phase 40F. 

1. This phase is called only if 
diagnostic codes were output 
by a previous phase. The 
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Phase Name ID 



Function Phase Name ID 

codes are extracted and 78F 78FIV 

translated into diagnostic 

messages that are output on 

the list file. These errors can 

be warnings, or severe errors 

that would prevent a success- 79F 79FIV 

ful compilation. 

2. If the messages were merely 
warnings, phase 70F is called. 

3. If the messages indicated er- 
rors that would prevent a 
successful compilation, the 
system halts, then control 
reverts to the det (determiner) 
phase of the System Control 
Program, which will read a 
control card from the control 
file. 



80F 



80FIV 



Function 

Builds, updates, or lists the 
Fortran relocatable subprogram 
library. 



1. Reads loader control 
from the control file. 



:ards 



2. Relocates and loads a main 
program and required sub- 
programs, possibly from the 
subprogram library. 

3. Establishes interprogram com- 
munication by replacing ex- 
ternal references by actual 
addresses. 



Produces an external name map 
on the list file, if requested. 



70F 



81F 



81FIV 



70FIV Generates object code in the re- 
locatable format from internal 
macros and associated param- 
eters. Addresses are substituted 
for label references. A header 
card image is always generated 
first, and a trailer card image is 

always generated as the last card. 32P 82FIV 

Between these two card images 
will be relocatable and external 
name cards to indicate object 

characters to be loaded and inter- °^ 9Uriv 

program references. Card images 
appear on the loader and/or 
output files, depending on actual 
device assignments. Control is 

returned to the det (determiner) 91 F 91FIV 

phase of the System Control 
Program. 



Produces storage print of the 
loaded program on the list file, 
if requested. The storage print 
does not include the standard 
overlay package. 

Produces an absolute deck on the 
output file, if requested. 

Standard overlay package for 
1401 or 1460, including arith- 
metic interpreter and standard 
I/O routines. 

Standard overlay package for 
1440, including arithmetic inter- 
preter and standard I/O routines. 
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Appendix III 



Building a System that Contains 
Fortran and Autocoder 

In this section, the Autocoder system refers to 1401/ 
1440/1460 Autocoder (on Disk), program number 1401- 
AU-008. The specifications and operating procedures 
for this program are contained in the Systems Refer- 
ence Library publications, Autocoder (on Disk) Lan- 
guage Specifications for IBM 1401, 1440, and 1460, 
Form C24-3258 and Autocoder (on Disk) Program 
Specifications and Operating Procedures for IBM 1401, 
1440, and 1460, Form C24-3259. 

File Considerations 

Because the System Control Program is the controlling 
element of the Autocoder system as well as the Fortran 
system, it is possible to build a system file that con- 
tains both the Fortran Processor Program and the Au- 
tocoder Assembler Program. 

Figure 48 shows the disk-storage allocation on the 
system unit when both Fortran and Autocoder are 
present. 

The user should consult the referenced Autocoder 
publications for a description of the Autocoder system. 



Two differences exist when the Autocoder system re- 
sides alone on a disk unit as opposed to when it resides 
on a disk unit that also contains the Fortran system. 
These differences are: 

1. The assumed assignment of the Autocoder library 
file. 

2. The assumed assignments of the Autocoder work 
files. 

Figure 49 gives the assumed assignments of the Auto- 
coder library file and the Autocoder work files when 
Autocoder and Fortran reside on the same system file. 
Do not consider the assumed assignments for these 
files as given in the Autocoder operating procedures 
publication. 

Note also that Autocoder uses a maximum of three 
work files, whereas six work files are defined for For- 
tran. Further, the user should note that Autocoder de- 
fines a coreload file (not applicable to Fortran), and 
Fortran defines a loader file (not applicable to Auto- 
coder). The assumed assignments for the remaining 
logical files (control, message, list, input, and out- 
put) are the same for both the Autocoder and the For- 
tran systems. 





File 


Mode 


File- Protected 


Sector Range 




SYSTEM File 

Autocoder Preprocessor Work Area 

Autocoder Preprocessor 

Autocoder Preprocessor 

Autocoder Preprocessor 

Autocoder Preprocessor 

Not Used 

System Control Program 

Fortran Processor Program 

Not Used 

System Control Program 

Fortran Processor Program 

Autocoder Assembler Program "l 

Area for User's Fortran Object Program Library/ 


Move 

Move 

Load 

Move 

Load 

Loadq 

Load 

Load 

Load 

Load 

Load 


No 
No 
No 
No 
No 
No 
Yes 
Yes 
Yes 
Yes 

Yes 


000000- 000089 
000090-000199 
000200-000259 
000260- 000299 
000300- 000899 
000900-002499 
002500-002904 
002905-002979 
002980- 002999 
003000-003175 

003176-007199 


1 


WORK Files 


Move 


No 


007200-010399 


1 


LOADER File (Fortran only. This area is used by Autocoder as a continuation 
of the WORK files.) 


Move 


No 


010400-011999 




LIBRARY File (Fortran) 


Move 


No 


012000-013899 




LIBRARY File (Autocoder) 


Move 


No 


013900-019979 



Figure 48. Disk Storage Allocation 
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File 


Assumed Assignment 


LIBRARY 


131 1 UNIT 0, START 013900, END 019980 
1301 UNIT 0, START 013900, END 019980 


WORK1 


1311 UNIT 0, START 007200, END 010400 
1301 UNIT 0, START 007206, END 010400 


WORK2 


1311 UNITO, START 010400, END 011600 
1301 UNIT 0, START 010400, END 011600 


WORK3 


131 1 UNIT 0, START 01 1600, END 012000 
1301 UNIT 0, START 011600, END 012000 



• Figure 49. Assumed Assignments of Autocoder library and 
work Files 



Building a Combined System 

To build a system comprising Fortran and Autocoder, 
first build a Fortran system as described in this publi- 
cation. 

After the Fortran system has been built, use the 
Autocoder marking program to separate the various 
components of the Autocoder program deck as de- 
scribed in Autocoder (on Disk) Program Specifications 
and Operating Procedures for IBM 1401, 1440, and 
1460, Form C24-3259. Use only the Autocoder-update 
section of the Autocoder program deck to build the 
Autocoder system. This section is made up of the sets 
of cards labeled autocoder processor, autocoder pre- 
processor, and autocoder macros. After the system 
has been built, use the appropriate sample program 
to test the system. 

Perform a user-update job to add the Autocoder As- 
sembler Program to the system file. Input for this job 
is as follows. 

1. The 1402 or 1442 card boot, followed by 

2. The system asgn card, which must be punched by 
the user, followed by 

3. The Autocoder update section, made up of the sets 
of cards labeled autocoder processor, autocoder 
preprocessor, and autocoder macros, followed by 

4. The halt card, which must be punched by the user. 

To build the system when it is to reside on 1311: 

1. Ready the Fortran system pack on disk drive 0. 

2. Set the I/O check-stop switch off. 

3. Set the check-stop switch and the disk-write switch 
on. 

4. Set the mode switch to run. 

5. Press check reset and start reset. 



6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

To build the system when it is to reside on 1301: 

1. Set the I/O check-stop switch off. 

2. Set the check-stop switch and disk-write switch on. 

3. Set the mode switch to run. 

4. Press check reset and start reset. 

5. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

6. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

The halts that can occur when using the Autocoder- 
update section are shown in Figure 35. 

Testing the Autocoder System 

The appropriate sample program deck, which is used 
to test the effectiveness of the system built by the user, 
calculates and lists a table of salaries. A listing of the 
sample program is shown in an appendix of the Auto- 
coder operating procedures publication. 

The first card in the sample program is a partially 
prepunched control card used for assigning the core- 
load file. This partially prepunched control card can- 
not be used when the Autocoder and Fortran systems 
reside on the same unit because the assignment of the 
coreload file designated in the control card is within 
the area defined for the Fortran library file. Discard 
this control card and replace it with a new control card 
punched in the following format. 

Columns Contents 

6-13 CORELOAD 

16-19 ASGN 

21-24 1311 or 1301 

26-57 unit 0, start 000040, end 000090 

To prepare and run the sample program, see Preparing 
a Stack and Running a Stack. 
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Appendix IV— Sample Program 



FORTRAN RUN 
SNO MULTIPLY DIVIDE 

C SAMPLE PROGRAM TO TEST SYSTEM 

C 

C PROGRAM FOR FINDING THE LARGEST VALUE 

C ATTAINED BY A SET OF NUMBERS 

001 DIMENSION AX12n 

002 READ XI. inN,XAXItI,I#l,Nn 

003 1 FORMAT XI 3/X12F6. 2rin 

004 BIGA*AX1H 

005 DO 20 I#2.N 

006 IF XBIGA.LT.AXIna BIGA * AXIn 

007 20 CONTINUE 

008 WRITE X3.2BN.BIGA 

009 2 FORMAT X21H1THE LARGEST OF THESE, 13, I1H NUMBERS IS.F9.2n 

010 STOP 
Oil END 



77KTST00 



77M SAMP 
77N SAMP 
770 SAMP 
77P SAMP 
77Q 

77R SAMP 
78 1 SAMP 
78J SAMP 
78K SAMP 
78L SAMP 
78M SAMP 
78N SAMP 
780 SAMP 
78P SAMP 
78Q SAMP 




NAME DICTIONARY 

00126 A 00131 N 00136 I 00149 BIGA 

SEQUENCE NUMBER DICTIONARY 

002-00151 004-00170 005-00182 006-00205 007-00249 000-00249 008-00253 010-00272 

011-00282 001-00292 002-00292 003-00355 008-00408 009-00423 011-00506 



78R SAMP 



SSTORAGE PRINT 




*** NAME MAP *** 



05851 
08004 
07405 
07155 
07207 
07377 



06515 
06982 
07676 
06441 
07219 
07 404 



06978 


no 


06228 


HA 


06415 


7050 


□ G 


08025 


*3 


06206 


07906 


Q. 


07484 


H. 


07523 


6320 


zn 


06482 


YD 


06375 


07271 


X2 


07291 


X3 


07251 


73 41 


G.2 









07155 .9 

07102 nH 

06511 nE 

06416 Vn 

07231 X5 



*** END OF NAME MAP *** 




• Figure 50. Sample Program (Part 1 of 3) 
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*** 


STORAGE PRINT *** 










05700 


xo* 


017707 
1111 




















05800 


YO* 








1 7A 




2BL2900M1M 


X0*0 I5VZ9S 


B*45Y2W>Y4 


Z*BR8SB?5* 


Y3WY5*Y3/X 












1 1 




11 1 11 


1 11 1 


1 1 1 


11 1 


1111 


05900 


ZO* 


0SZ5TB*45Y 


4Z-SY3WY3Y 


$Y3W5Z4Z*B 


*45SY3WY3Y 


SY3W>Y4Z*B 


Y8WBL2902N 


2MX0*0J2TJ 


OYBK0WZ8/D 


ETBK0WZ9/D 


ETBR75YC/%' 






1 1 1 


111 1 


11 1 11 


11 1 


11 1 11 


1 1 


111 11 1 


1 1 1 


1 1 1 


1 1 1 


06000 


SO* 


B12UBR75SY 


3WY3YSYTW% 


BA0SBR8SB? 


5*Y3WY3ZY3 


/XOS 85/B tO 


UB793BOOV0 


01BF7W0010 


03IBI0W/BD 


0V001BF7W0 


12006F002B 






1 1 11 


1 11 1 


1 1 1 


1 1 1 


1 1 1 


1 1 1 


1 1 1 


11 11 


1 1 1 


1 11 1 


06100 


JO* 


D8UBI0W BR 


75YC/YUZ%B 


793BD0V001 


BE2T0211TH 


E LARGEST 


OF THESEBF 


7W00 10031 B 


E2T011 NUM 


BERS ISBF7 


W001009FOO 






1 11 


1 1 11 


1 1 


1 1 1 




1 


1 1 11 


1 1 


1 


1 1 11 


06200 


KO* 


2BI0W H089 
1 11 


M0*2K2*MK2 
1 1 


T835B746SM 
1 1 


8SM0I6K5WM 
1 1 


0!3K4Z?000 
1 


M8ZL000M9U 
1 


BN1/96013M 
1 1 


8ZN0*ANO*M 
1 


8SCM7ZM8UB 
1 1 


M5ZTBL1T0! 
1 


06300 


LO* 


7SH094016B 
1 1 


K3SHL7VL7W 
1 


SN0VM8SBL3 
1 1 


SZAN0XM7ZB 
1 1 


L3SZYM7YM8 
1 


S?MR*090YL 
1 1 


XYM8*MM8S0 
1 


89BO0O#O JO 
1 1 


089Y019088 
1 


H0940 !7BM1 
1 1 


06400 


MO* 


W0I4.H0940 
1 


!4BOOOM0!7 
1 1 


M2ZM089000 
1 


H/020 !4BX4 
1 1 


7M0!7M5U»0 
1 1 


89000BM3*B 
1 1 


Y76SSENI02 
1 1 
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THE LARGEST OF THESE 


12 NUMBERS 


IS 9876.54 









































• Figure 50. Sample Program (Part 2 of 3) 

96 Fortran IV Specs & Op. Proc. - 1401, 1440, 1460 



PAUSE PRESS START TO UPDATE SYSTEM WITH PHASE 



UPDAT///.INSER 



001 /// 



PRODUCT IONRUN /// 



THE LARGEST OF THESE 12 NUMBERS 



IS 9876. 54 

PAUSE PRESS START TO DELETE SAMPLE PROGRAM FROM SYSTEM 



UPDAT///, DELETE 

HALT SAMPLE PROGRAM COMPLETE, ALL SYSTEMS ARE GO. 



Figure 50. Sample Program (Part 3 of 3) 
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